t/007_pod.t

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