X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=4728bbf6622736daf0b3302d1ad21bce2e199324;hb=027d819cfec7c990f32bf810203481c9f7dc1f60;hp=4e1c6e74f04caf06c867d32845baf9f49be62dd5;hpb=c3c7961291dc2703f5d532d004d301f1cc1db96e;p=scpubgit%2Fstemmatology.git

diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 4e1c6e7..4728bbf 100644
--- 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