|
#!perl
BEGIN {
unless ( $ENV {RELEASE_TESTING}) {
Test::More::plan( skip_all => 'these tests are for release candidate testing' );
}
}
my %skip = map { $_ => 1 } qw( ) ;
my @modules ;
for my $module ( all_modules() ) {
next if $skip { $module };
push @modules , $module ;
}
plan skip_all => 'All the modules we found were excluded from POD coverage test.'
unless @modules ;
plan tests => scalar @modules ;
my %trustme = ();
for my $module ( sort @modules ) {
pod_coverage_ok(
$module ,
{
coverage_class => 'Pod::Coverage::TrustPod' ,
trustme => $trustme { $module } || [],
},
"pod coverage for $module"
);
}
done_testing();
|