t/99_pod_coverage.t

   1 # Only DBM::Deep has any POD to test. All the other classes are private
   2 # classes. Hence, they have no POD outside of DBM::Deep::Internals
   3
   4 use strict;
   5
   6 use Test::More;
   7
   8 eval "use Test::Pod::Coverage 1.04";
   9 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
  10
  11 plan tests => 1;
  12
  13 # I don't know why TYPE_ARRAY isn't being caught and TYPE_HASH is.
  14 my @private_methods = qw(
  15     TYPE_ARRAY
  16 );
  17
  18 # These are method names that have been commented out, for now
  19 # max_of total_of
  20 # begin_page end_page
  21
  22 my $private_regex = do {
  23     local $"='|';
  24     qr/^(?:@private_methods)$/
  25 };
  26
  27 pod_coverage_ok( 'DBM::Deep' => {
  28     also_private => [ $private_regex ],
  29 });