I just overhauled the stock t/99.pod.t that brian handed me once:
use File::Spec;
use File::Find;
use strict;
eval {
require Pod::Simple;
};
my @files;
if ($@) {
plan skip_all => "Pod::Simple required for testing POD";
} else {
my $blib = File::Spec->catfile(qw(blib lib));
find(\&wanted, $blib);
plan tests => scalar @files;
foreach my $file (@files) {
my $checker = Pod::Simple->new;
$checker->output_string( \my $trash ); # Ignore any output
$checker->parse_file( $file );
unless ( ok( !$checker->any_errata_seen, $file ) ) {
my $lines = $checker->{errata};
for my $line ( sort { $a<=>$b } keys %$lines ) {
my $errors = $lines->{$line};
diag( "$file ($line): $_" ) for @$errors;
}
}
}
}
sub wanted {
push @files, $File::Find::name if /\.p(l|m|od)$/ || /\.t$/;
}
