1use Test::More;
2use File::Spec;
3use File::Find;
4use strict;
5
6BEGIN { chdir 't' if -d 't' };
7
8eval 'use Test::Pod';
9plan skip_all => "Test::Pod v0.95 required for testing POD"
10    if $@ || $Test::Pod::VERSION < 0.95;
11
12plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE};
13
14my @files;
15find( sub { push @files, File::Spec->catfile(
16                    File::Spec->splitdir( $File::Find::dir ), $_
17                ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) ));
18
19plan tests => scalar @files;
20for my $file ( @files ) {
21    pod_file_ok( $file );
22}
23
24
25