From a27f2bd38587630db826b55e6c433415bf4da6ac Mon Sep 17 00:00:00 2001 From: Marcus Ramberg Date: Mon, 11 Oct 2004 19:23:50 +0000 Subject: [PATCH] skip uppercase methods. git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@220 48953598-375a-da11-a14b-00016c27c3ee --- t/03podcoverage.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/03podcoverage.t b/t/03podcoverage.t index 7714e24..d8d403d 100644 --- a/t/03podcoverage.t +++ b/t/03podcoverage.t @@ -5,5 +5,5 @@ use Test::More; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; -all_pod_coverage_ok(); +all_pod_coverage_ok({ also_private => [ qr/^[A-Z_]+$/ ], }); -- 2.39.5