Commit | Line | Data |
1cff45d7 |
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 | }); |