[dbsrgits/DBM-Deep.git] / t / 99_pod_coverage.t

# 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 ],
});
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	});