#!perl
BEGIN {
unless
(
$ENV
{RELEASE_TESTING}) {
Test::More::plan(
skip_all
=>
'these tests are for release candidate testing'
);
}
}
BEGIN {
if
( $] <= 5.008008 ) {
plan
skip_all
=>
'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+'
;
}
}
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
= ();
my
@also_private
;
for
my
$module
(
sort
@modules
) {
pod_coverage_ok(
$module
,
{
coverage_class
=>
'Pod::Coverage::TrustPod'
,
also_private
=> \
@also_private
,
trustme
=>
$trustme
{
$module
} || [],
},
"pod coverage for $module"
);
}
done_testing();