X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F92-pod-coverage.t;h=f994974f248f3003a6f2d84ea48713300522e7c0;hb=b74d16df98351c4bacb0a1a9d029ce7d7924591f;hp=3037c13d050403195e3fc177bab7ff218e61407f;hpb=bac4fc46c2d48ce5db75de6c88e0983aeeedf865;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 3037c13..f994974 100644
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -16,4 +16,4 @@ my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
-all_pod_coverage_ok();
+all_pod_coverage_ok( { also_private => [ qr/^_/, qr/^CLONE(_SKIP)?$/ ] } );