Pod::Coverage random silliness

[Kirrily 'Skud' Robert]

This script...

#!/usr/bin/perl -w

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), "\n";
    printf("%30s  %3d%%  %s\n", $out, $coverage{$out}*100, $bar);
}

sub by_coverage {
    $coverage{$b} <=> $coverage{$a};
}


... gives us ...


Checking POD coverage...
                 Pod::Coverage  100%  ****************************************
                   Digest::MD5   90%  ************************************
                    Pod::Tests   87%  ***********************************
                Text::Template   54%  *********************
                   Net::Telnet   38%  ***************
                  Test::Simple   33%  *************
                 Test::Harness   33%  *************
                          Perl    0%  
                Term::ReadLine    0%  
               Data::ShowTable    0%  
                    File::Spec    0%  
                   Pod::Parser    0%  
            Msql-Mysql-modules    0%  
                Devel::Symdump    0%  
                          CPAN    0%  
                 Image::Magick    0%  
                          YAML    0%  
                 Term::ReadKey    0%