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 | |
8943ff68 |
10 | my @exclude = qw/ Collation::Data /; |
a445ce40 |
11 | |
027d819c |
12 | my %mods; |
13 | map { $mods{$_} = 1 } all_modules(); |
a445ce40 |
14 | map { delete $mods{'Text::Tradition::'.$_} } @exclude; |
027d819c |
15 | if( -e 'MANIFEST.SKIP' ) { |
16 | open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open skip file"; |
17 | while(<SKIP>) { |
18 | chomp; |
19 | next unless /^lib/; |
20 | s/^lib\///; |
21 | s/\.pm//; |
22 | s/\//::/g; |
23 | delete $mods{$_}; |
24 | } |
25 | close SKIP; |
26 | } |
27 | |
28 | foreach my $mod ( keys %mods ) { |
06e7cbc7 |
29 | pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } ); |
027d819c |
30 | } |
31 | |
06e7cbc7 |
32 | done_testing(); |