Use a context for passing arguments to su_unwind()

[perl/modules/Scope-Upper.git] / t / 92-pod-coverage.t

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 3037c13d050403195e3fc177bab7ff218e61407f..f994974f248f3003a6f2d84ea48713300522e7c0 100644 (file)
--- 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)?$/ ] } );