git.maemo.org Git - pkg-perl/blob - deb-src/libpod-coverage-perl/libpod-coverage-perl-0.19/examples/check_installed

   1 #!/usr/bin/perl -w
   2
   3 # code contributed by Kirrily "Skud" Robert <skud@cpan.org>
   4
   5 use strict;
   6 use Pod::Coverage;
   7 use ExtUtils::Installed;
   8
   9 my $m = ExtUtils::Installed->new;
  10 my @modules = $m->modules();
  11
  12 print "Checking POD coverage...\n";
  13
  14 my %coverage;
  15 foreach my $mod (@modules) {
  16     my $pc = new Pod::Coverage package => $mod;
  17     $coverage{$mod} = $pc->coverage() || 0;
  18 }
  19
  20 foreach my $out (sort by_coverage keys %coverage) {
  21     my $bar = "*" x ($coverage{$out} * 40);
  22     printf("%30s  %3d%%  %s\n", $out, $coverage{$out}*100, $bar);
  23 }
  24
  25 sub by_coverage {
  26     $coverage{$b} <=> $coverage{$a};
  27 }