BEGIN { unless ($ENV{RELEASE_TESTING}) { require Test::More; Test::More::plan(skip_all => 'these tests are for release candidate testing'); } } use strict; use warnings; use Test::More; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; my @modules = grep { !/PP/ && !/Helpers/ } all_modules(); plan tests => scalar @modules; my %trustme = ( 'DateTime' => { trustme => [ qr/0$/, qr/^STORABLE/, 'utc_year', 'timegm', qw( day_of_month doq dow doy iso8601 local_rd_as_seconds mday min mon sec wday ), # deprecated methods 'DefaultLanguage', 'era', 'language', ] }, 'DateTime::Infinite' => { trustme => [ qr/^STORABLE/, qr/^set/, qr/^is_(?:in)?finite/, 'truncate' ] }, ); for my $mod ( sort @modules ) { pod_coverage_ok( $mod, $trustme{$mod} || {}, $mod ); }