From: Marcus Ramberg <mramberg@cpan.org>
Date: Mon, 11 Oct 2004 19:23:50 +0000 (+0000)
Subject: skip uppercase methods.
X-Git-Tag: 2.10~142
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=commitdiff_plain;h=a27f2bd38587630db826b55e6c433415bf4da6ac

skip uppercase methods.


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@220 48953598-375a-da11-a14b-00016c27c3ee
---

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_]+$/ ], });