X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=2d85544fc468c849ca6d94b85fac4d7528636a3d;hb=32256f01d018a2a5799e706c57edef4680b3a276;hp=4e1c6e74f04caf06c867d32845baf9f49be62dd5;hpb=b49c431805cca61890ecc70a6869ec7988367834;p=scpubgit%2Fstemmatology.git

diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 4e1c6e7..2d85544 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/ TO_JSON BUILD throw / ] } );
+}
+
+done_testing();