1 2use strict; 3use warnings; 4 5use Test::More; 6 7 8plan skip_all => 'This test is only run for the module author' 9 unless -d '.svn' || $ENV{IS_MAINTAINER}; 10 11eval "use Test::Pod::Coverage 1.04"; 12plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" 13 if $@; 14 15my @modules = grep { ! /PP/ } all_modules(); 16plan tests => scalar @modules; 17 18my %trustme = 19 ( 'DateTime' => 20 { trustme => [ qr/0$/, qr/^STORABLE/, 'utc_year', 21 'timegm', 22 # deprecated methods 23 'DefaultLanguage', 'era', 'language', 24 ] }, 25 'DateTime::Helpers' => 26 { trustme => [ qr/./ ] }, 27 'DateTime::Infinite' => 28 { trustme => [ qr/^STORABLE/, qr/^set/, qr/^is_(?:in)?finite/, 29 'truncate' ] }, 30 ); 31 32 33for my $mod ( sort @modules ) 34{ 35 pod_coverage_ok( $mod, $trustme{$mod} || {}, $mod ); 36} 37