Add ARM files

[dh-make-perl] / dev / arm / libpod-coverage-perl / libpod-coverage-perl-0.19 / debian / libpod-coverage-perl / usr / share / doc / libpod-coverage-perl / examples / check_installed

diff --git a/dev/arm/libpod-coverage-perl/libpod-coverage-perl-0.19/debian/libpod-coverage-perl/usr/share/doc/libpod-coverage-perl/examples/check_installed b/dev/arm/libpod-coverage-perl/libpod-coverage-perl-0.19/debian/libpod-coverage-perl/usr/share/doc/libpod-coverage-perl/examples/check_installed
new file mode 100755 (executable)
index 0000000..dfa5c4b
--- /dev/null
+++ b/dev/arm/libpod-coverage-perl/libpod-coverage-perl-0.19/debian/libpod-coverage-perl/usr/share/doc/libpod-coverage-perl/examples/check_installed
@@ -0,0 +1,27 @@
+#!/usr/bin/perl -w
+
+# code contributed by Kirrily "Skud" Robert <skud@cpan.org>
+
+use strict;
+use Pod::Coverage;
+use ExtUtils::Installed;
+
+my $m = ExtUtils::Installed->new;
+my @modules = $m->modules();
+
+print "Checking POD coverage...\n";
+
+my %coverage;
+foreach my $mod (@modules) {
+    my $pc = new Pod::Coverage package => $mod;
+    $coverage{$mod} = $pc->coverage() || 0;
+}
+
+foreach my $out (sort by_coverage keys %coverage) {
+    my $bar = "*" x ($coverage{$out} * 40);
+    printf("%30s  %3d%%  %s\n", $out, $coverage{$out}*100, $bar);
+}
+
+sub by_coverage {
+    $coverage{$b} <=> $coverage{$a};
+}