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