1#!perl -T 2 3use strict; 4use warnings; 5 6use Test::More; 7 8unless ( $ENV{TEST_AUTHOR} ) { 9 plan skip_all => 'Set $ENV{TEST_AUTHOR} to a true value to run POD tests.'; 10} 11 12my $min_tpc = 1.08; 13 14eval "use Test::Pod::Coverage $min_tpc"; 15if ($@) { 16 plan skip_all => 17 "Test::Pod::Coverage $min_tpc required to test POD coverage."; 18} 19 20# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, 21# but older versions don't recognize some common documentation styles: 22# 23my $min_pc = 0.18; 24eval "use Pod::Coverage $min_pc"; 25if ($@) { 26 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage."; 27} 28 29all_pod_coverage_ok(); 30