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
6 use Test::More tests => 1;
8 eval "use Test::Pod::Coverage 1.04";
9 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
11 # I don't know why TYPE_ARRAY isn't being caught and TYPE_HASH is.
12 my @private_methods = qw(
16 # These are method names that have been commented out, for now
20 my $private_regex = do {
22 qr/^(?:@private_methods)$/
25 pod_coverage_ok( 'DBM::Deep' => {
26 also_private => [ $private_regex ],