use strict;
use warnings;
use Test::More;
BEGIN {
plan skip_all => 'This test is only run for the module author'
unless -d '.hg' || $ENV{IS_MAINTAINER};
}
use File::Find::Rule;
use Test::Pod::Coverage 1.04;
my $dir = -d 'blib' ? 'blib' : 'lib';
my @files = sort File::Find::Rule ->file->name('*.pm')
->not( File::Find::Rule->grep('This file is auto-generated') )->in($dir);
plan tests => scalar @files;
for my $file (@files) {
( my $mod = $file ) =~ s/^.+(DateTime.+)\.pm$/$1/;
$mod =~ s{/}{::}g;
my @trustme = qr/^STORABLE_/;
if ( $mod eq 'DateTime::Locale::Base' ) {
# This is mostly the backwards compatibility cruft.
push @trustme, (
map {qr/^\Q$_\E$/}
qw( new
month_name
month_abbreviation
month_narrow
month_names
month_abbreviations
month_narrows
day_name
day_abbreviation
day_narrow
day_names
day_abbreviations
day_narrows
quarter_name
quarter_abbreviation
quarter_narrow
quarter_names
quarter_abbreviations
am_pm
am_pms
era_name
era_abbreviation
era_narrow
era_names
era_abbreviations
era
eras
date_before_time
date_parts_order
full_date_format
long_date_format
medium_date_format
short_date_format
default_date_format
full_time_format
long_time_format
medium_time_format
short_time_format
default_time_format
full_datetime_format
long_datetime_format
medium_datetime_format
short_datetime_format
default_datetime_format
)
);
}
pod_coverage_ok( $mod, { trustme => \@trustme } );
}