1#!perl 2 3BEGIN { 4 unless ($ENV{RELEASE_TESTING}) { 5 require Test::More; 6 Test::More::plan(skip_all => 'these tests are for release candidate testing'); 7 } 8} 9 10 11use strict; 12use warnings; 13use Test::More; 14 15foreach my $env_skip ( qw( 16 SKIP_POD_NO404S 17 AUTOMATED_TESTING 18) ){ 19 plan skip_all => "\$ENV{$env_skip} is set, skipping" 20 if $ENV{$env_skip}; 21} 22 23eval "use Test::Pod::No404s"; 24if ( $@ ) { 25 plan skip_all => 'Test::Pod::No404s required for testing POD'; 26} 27else { 28 all_pod_files_ok(); 29} 30