X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod_coverage.t;h=304cc64a5f0434b27040329c4e1c1038c910f618;hb=e976988f30574c0c21cfa29fc5d080827e003fb6;hp=835250661aed63d800934c08ae7d218e7e065975;hpb=a084e413f6358c99b0a5334ce1438ebdb3c8c46c;p=p5sagit%2FExcel-Template.git diff --git a/t/pod_coverage.t b/t/pod_coverage.t index 8352506..304cc64 100644 --- a/t/pod_coverage.t +++ b/t/pod_coverage.t @@ -10,10 +10,13 @@ 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 + begin_page end_page enter_scope exit_scope iterate_over_children ); +# These are method names that have been commented out, for now +# max_of total_of + my $private_regex = do { local $"='|'; qr/^(?:@private_methods)$/