t/03podcoverage.t

   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
  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 ) {
  26         pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
  27 }
  28
  29 done_testing();