lib/Archive/Tar/t/99_pod.t

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