The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;
BEGIN {
    if (! $ENV{TEST_POD} ) {
        plan(skip_all => "TEST_POD not specified");
    } else {
        eval "use Test::Pod::Coverage 1.08";
        plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" if $@;
    }
}

my @modules = grep { ! /PP/ } all_modules();
plan tests => scalar @modules;

my %trustme =
    ( 'DateTimeX::Lite'           =>
      { trustme => [ qr/0$/, qr/^STORABLE/, 'utc_year',
                     'timegm',
                     # deprecated methods
                     'DefaultLanguage', 'era', 'language',
                   ] },
      'DateTimeX::Lite::Helpers'  =>
      { trustme => [ qr/./ ] },
      'DateTimeX::Lite::Infinite' =>
      { trustme => [ qr/^STORABLE/, qr/^set/, qr/^is_(?:in)?finite/,
                     'truncate' ] },
    );


for my $mod ( sort @modules )
{
    pod_coverage_ok( $mod, $trustme{$mod} || {}, $mod );
}