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