t/pod.t

   1 use strict;
   2 use warnings;
   3
   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
   9 my $manifest = maniread();
  10 my @pod = grep /\.(?:pm|pod)$/, keys %$manifest;
  11 plan tests => scalar @pod;
  12 pod_file_ok($_ => $_) for @pod;
  13