File: 99_pod_coverage.t

package info (click to toggle)
libdbm-deep-perl 2.0008-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 884 kB
  • sloc: perl: 7,383; sql: 36
file content (29 lines) | stat: -rw-r--r-- 683 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# Only DBM::Deep has any POD to test. All the other classes are private
# classes. Hence, they have no POD outside of DBM::Deep::Internals

use strict;

use Test::More;

eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;

plan tests => 1;

# I don't know why TYPE_ARRAY isn't being caught and TYPE_HASH is.
my @private_methods = qw(
    TYPE_ARRAY
);

# These are method names that have been commented out, for now
# max_of total_of
# begin_page end_page

my $private_regex = do {
    local $"='|';
    qr/^(?:@private_methods)$/
};

pod_coverage_ok( 'DBM::Deep' => {
    also_private => [ $private_regex ],
});