The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
if ( not $ENV{TEST_AUTHOR} ) {
    my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
    print "1..0 
# $msg";
    exit 0;
}
require Test::More;
Test::More->import();

eval "use Test::Pod 1.00";
if ($@) { 
    print "# Test::Pod 1.00 required for testing POD";
    plan(tests => 0);
    exit 0;
}

my @directories;

# perl Build test or make test run from top-level dir. 
if ( -d '../t/' ) {
    @directories = ('../lib/', '../bin');
}
else {
    @directories = (); # empty - will work automatically
}

my @files = all_pod_files(@directories);

plan(tests => scalar(@files) );

foreach my $module (@files){
    pod_file_ok( $module )
}