]> git.vpit.fr Git - perl/modules/autovivification.git/blob - t/92-pod-coverage.t
Cover a_ck_padsv()
[perl/modules/autovivification.git] / t / 92-pod-coverage.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5 use Test::More;
6
7 # Ensure a recent version of Test::Pod::Coverage
8 my $min_tpc = 1.08;
9 eval "use Test::Pod::Coverage $min_tpc";
10 plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" if $@;
11
12 # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
13 # but older versions don't recognize some common documentation styles
14 my $min_pc = 0.18;
15 eval "use Pod::Coverage $min_pc";
16 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
17
18 all_pod_coverage_ok({ also_private => [ qr/^A_HINT_/ ] });