lib/Test/Harness/t/pod.t

   1 BEGIN {
   2     eval "use Test::More";
   3     if ($@) {
   4         print "1..0 # SKIPPED: Test::More not installed.\n";
   5         exit;
   6     }
   7 }
   8
   9 use File::Spec;
  10 use File::Find;
  11 use strict;
  12
  13 eval "use Test::Pod 0.95";
  14
  15 if ($@) {
  16     plan skip_all => "Test::Pod v0.95 required for testing POD";
  17 } else {
  18     my @files;
  19     my $blib = File::Spec->catfile(qw(blib lib));
  20     find( sub {push @files, $File::Find::name if /\.p(l|m|od)$/}, $blib);
  21     plan tests => scalar @files;
  22     Test::Pod::pod_file_ok($_) foreach @files;
  23 }