t/999_pod_coverage.t

   1 use strict;
   2
   3 use Test::More;
   4
   5 eval "use Test::Pod::Coverage 1.04";
   6 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
   7
   8 # These are methods that need naming work
   9 my @private_methods = qw(
  10     render new min max resolve deltas
  11     enter_scope exit_scope iterate_over_children
  12 );
  13
  14 # These are method names that have been commented out, for now
  15 # max_of total_of
  16 # begin_page end_page
  17
  18 my $private_regex = do {
  19     local $"='|';
  20     qr/^(?:@private_methods)$/
  21 };
  22
  23 all_pod_coverage_ok( {
  24     also_private => [ $private_regex ],
  25 });