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 7714e24ef64b4cb52874dd7fbc72cbedf5221732..d8d403de77c31bb16452f439866ccb42563db401 100644 (file)
--- 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_]+$/ ], });