X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibpod-coverage-perl%2Flibpod-coverage-perl-0.19%2Fbin%2Fpod_cover;fp=dev%2Fi386%2Flibpod-coverage-perl%2Flibpod-coverage-perl-0.19%2Fbin%2Fpod_cover;h=c11b2ffe8ce05ebc0aa0dfb5ec97dd6402fc6bbe;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/bin/pod_cover b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/bin/pod_cover
new file mode 100644
index 0000000..c11b2ff
--- /dev/null
+++ b/dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/bin/pod_cover
@@ -0,0 +1,49 @@
+#!/usr/bin/perl -w
+
+# Run this to get a coverage analysis of the embedded documentation
+
+use Pod::Coverage;
+use lib 'lib';			# to test distribution inside './lib'
+use strict;
+
+print "Pod coverage analysis v1.00 (C) by Tels 2001.\n";
+print "Using Pod::Coverage v$Pod::Coverage::VERSION\n\n";
+
+print scalar localtime()," Starting analysis:\n\n";
+
+my $covered = 0; my $uncovered; my $count = 0; my $c;
+open FILE, 'MANIFEST' or die "Can't read MANIFEST: $!";
+while (<FILE>)
+  {
+  chomp;
+  my ($file) = split /[\s\t]/,$_;
+  next unless $file =~ /^lib.*\.pm$/;
+  $file =~ s/^lib\///;			# remove lib and .pm
+  $file =~ s/\.pm$//;
+  $file =~ s/\//::/g;			# / => ::
+  my $rc = Pod::Coverage->new( package => $file );
+  $covered += $rc->covered(); 
+  $uncovered += $rc->uncovered(); 
+  $count ++;
+  $c = $rc->coverage() || 0; 
+  $c = int($c * 10000)/100;
+  print "$file has a doc coverage of $c%.\n";
+  my @naked = $rc->naked();
+  if (@naked > 0)
+    {
+    print "Uncovered routines are:\n";
+    print " ",join("\n ",sort @naked),"\n";	# sort by name
+						# could sort by line_num
+    }
+  print "\n";
+  }
+
+my $total = $covered+$uncovered;
+my $average = 'unknown';
+$average = int(10000*$covered/$total)/100 if $total > 0;
+
+print "Summary:\n";
+print " sub routines total    : $total\n";
+print " sub routines covered  : $covered\n";
+print " sub routines uncovered: $uncovered\n";
+print " total coverage        : $average%\n\n";