BEGIN {
our @modules = qw(
File::BOM
);
}
use File::Spec::Functions qw( catfile );
use Test::More tests => our @modules * 2;
SKIP: {
eval 'use Test::Pod';
skip "Test::Pod not installed", scalar @modules if $@;
for my $module (@modules) {
my @path = ('lib', split('::', $module));
my $file = pop(@path) . '.pm';
pod_file_ok(catfile(@path, $file), "$module pod ok");
}
}
SKIP: {
eval 'use Test::Pod::Coverage';
skip "Test::Pod::Coverage not installed", scalar @modules if $@;
for my $module (@modules) {
pod_coverage_ok(
$module,
{ also_private => [ qr(^[[:upper:][:digit:]_]+$) ] },
"$module pod coverage ok"
);
}
}
__END__
vim: ft=perl