Commit | Line | Data |
b49c4318 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More; |
5 | |
6 | eval "use Test::Pod::Coverage 1.04"; |
7 | plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@; |
8 | plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD}; |
9 | |
027d819c |
10 | my %mods; |
11 | map { $mods{$_} = 1 } all_modules(); |
12 | if( -e 'MANIFEST.SKIP' ) { |
13 | open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open skip file"; |
14 | while(<SKIP>) { |
15 | chomp; |
16 | next unless /^lib/; |
17 | s/^lib\///; |
18 | s/\.pm//; |
19 | s/\//::/g; |
20 | delete $mods{$_}; |
21 | } |
22 | close SKIP; |
23 | } |
24 | |
25 | foreach my $mod ( keys %mods ) { |
06e7cbc7 |
26 | pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } ); |
027d819c |
27 | } |
28 | |
06e7cbc7 |
29 | done_testing(); |