[p5sagit/Excel-Template.git] / t / 999_pod_coverage.t

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 $@;

# These are methods that need naming work
my @private_methods = qw(
    render new min max resolve deltas
    enter_scope exit_scope iterate_over_children
);

# 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)$/
};

all_pod_coverage_ok( {
    also_private => [ $private_regex ],
});
Commit	Line	Data
6dd4c89d	1	use strict;
	2
	3	use Test::More;
	4
	5	eval "use Test::Pod::Coverage 1.04";
	6	plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
	7
	8	# These are methods that need naming work
	9	my @private_methods = qw(
	10	render new min max resolve deltas
6dd4c89d	11	enter_scope exit_scope iterate_over_children
	12	);
	13
e976988f	14	# These are method names that have been commented out, for now
e976988f	15	# max_of total_of
d01e4722	16	# begin_page end_page
e976988f	17
6dd4c89d	18	my $private_regex = do {
	19	local $"='\|';
	20	qr/^(?:@private_methods)$/
	21	};
	22
	23	all_pod_coverage_ok( {
	24	also_private => [ $private_regex ],
	25	});