Accept ALL_CAPS constant subs as documented

bestpractical · May 8, 2012 · 6fe9ebb · 6fe9ebb
1 parent 1d75f55
commit 6fe9ebb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xt/release/99-pod-coverage.t b/xt/release/99-pod-coverage.t
@@ -3,7 +3,7 @@ eval "use Test::Pod::Coverage 1.00";
 plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
 plan skip_all => "Coverage tests only run for authors" unless ( -d 'inc/.author' );
 
-all_pod_coverage_ok();
+all_pod_coverage_ok({ also_private => [ qr/^[A-Z_]+$/ ] });
 
 # Workaround for dumb bug (fixed in 5.8.7) where Test::Builder thinks that
 # certain "die"s that happen inside evals are not actually inside evals,