t/t91pod.t

   1 #!perl -w
   2 use strict;
   3 use lib 't';
   4 use Test::More;
   5 use ExtUtils::Manifest qw(maniread);
   6 eval "use Test::Pod 1.00;";
   7 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
   8 my $manifest = maniread();
   9 my @pod = grep /\.(pm|pl|pod|PL)$/, keys %$manifest;
  10 plan tests => scalar(@pod);
  11 for my $file (@pod) {
  12   pod_file_ok($file, "pod ok in $file");
  13 }