123456 use strict;use Test::More;eval "use Test::Pod 1.00";plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;my @poddirs = qw( lib ); # Should probably be blib...all_pod_files_ok( all_pod_files( @poddirs ) );
use
strict;
Test::More;
eval
"use Test::Pod 1.00"
;
plan
skip_all
=>
"Test::Pod 1.00 required for testing POD"
if
$@;
my
@poddirs
=
qw( lib )
# Should probably be blib...
all_pod_files_ok( all_pod_files(
) );