|
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc" ;
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc" ;
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
plan tests => 3;
pod_coverage_ok( "Archive::BagIt" , { also_private =>[ qw( BUILD BUILDARGS) ]});
pod_coverage_ok( "Archive::BagIt::Base" );
SKIP: {
skip "IO::AIO required for testing Archive::BagIt::Fast" , 1 unless eval "use IO::AIO; 1" ;
pod_coverage_ok( "Archive::BagIt::Fast" );
}
|