huge pile of pod updates

[scpubgit/stemmatology.git] / t / 03podcoverage.t

diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 4e1c6e7..4728bbf 100644 (file)
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -7,4 +7,23 @@ eval "use Test::Pod::Coverage 1.04";
 plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 
-all_pod_coverage_ok();
+my %mods;
+map { $mods{$_} = 1 } all_modules();
+if( -e 'MANIFEST.SKIP' ) {
+       open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open skip file";
+       while(<SKIP>) {
+               chomp;
+               next unless /^lib/;
+               s/^lib\///;
+               s/\.pm//;
+               s/\//::/g;
+               delete $mods{$_};
+       }
+       close SKIP;
+}
+               
+foreach my $mod ( keys %mods ) {
+       pod_coverage_ok( $mod, { also_private => [ qw/ BUILD throw / ] } );
+}
+
+done_testing();
\ No newline at end of file