Dogcows Code - chaz/p5-HTTP-AnyUA/blob - xt/author/pod-no404s.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 foreach my $env_skip ( qw(
   8   SKIP_POD_NO404S
   9   AUTOMATED_TESTING
  10 ) ){
  11   plan skip_all => "\$ENV{$env_skip} is set, skipping"
  12     if $ENV{$env_skip};
  13 }
  14
  15 eval "use Test::Pod::No404s";
  16 if ( $@ ) {
  17   plan skip_all => 'Test::Pod::No404s required for testing POD';
  18 }
  19 else {
  20   all_pod_files_ok();
  21 }