base/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 @exclude = qw/ Collation::Data /;
  11
  12 my %mods;
  13 map { $mods{$_} = 1 } all_modules();
  14 map { delete $mods{'Text::Tradition::'.$_} } @exclude;
  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 ) {
  29         pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
  30 }
  31
  32 done_testing();