# $Id: 00-pod.t 1378 2015-07-14 07:50:38Z willem $
#
use strict;
use Test::More;
my %prerequisite = qw(
Test::Pod 1.45
);
while ( my ( $package, $rev ) = each %prerequisite ) {
eval "use $package $rev";
next unless $@;
plan skip_all => "$package $rev required for testing POD";
exit;
}
my @poddirs = qw( blib demo );
my @allpods = all_pod_files(@poddirs);
all_pod_files_ok(@allpods);