[p5sagit/Excel-Template.git] / t / pod_coverage.t

#!/usr/bin/perl

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
    begin_page end_page max_of total_of
    enter_scope exit_scope iterate_over_children
);

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

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