Work in progress

[perl/modules/Sub-Nary.git] / t / 92-pod-coverage.t

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 1889ea5aacfb96724fab016eadc63ebd3b80b0fe..777f79eecf64504fbd74cee01aeaed2e260a01a4 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -16,8 +16,8 @@ eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
 all_pod_coverage_ok({ also_private => [
- qr/^inspect/, qr/^pp_/, qw/enter/,
+ qr/^inspect/, qr/^pp_/, qr/^OPc_/, qw/enter/,
  qw/tag scalops/,
- qw/null zero list count scale normalize add combine cumulate power/,
+ qw/null zero count scale normalize add combine cumulate power/,
  qw/name const_sv gv_or_padgv padval/
 ] });