|
my @modules = qw/
DNS::BL
DNS::BL::Entry
DNS::BL::cmds
DNS::BL::cmds::add
DNS::BL::cmds::print
DNS::BL::cmds::punch
DNS::BL::cmds::delete
DNS::BL::cmds::connect
DNS::BL::cmds::connect::db
DNS::BL::cmds::connect::dbi
/ ;
my @paths = ();
plan tests => 2 * scalar @modules ;
use_ok( $_ ) for @modules ;
my $checker = 0;
Test::Pod:: import ();
$checker = 1; };
for my $m ( @modules )
{
my $p = $m . ".pm" ;
$p =~ s!::!/!g;
push @paths , $INC { $p };
}
END { unlink "./out.$$" };
SKIP: {
skip "Test::Pod is not available on this host" , scalar @paths
unless $checker ;
pod_file_ok( $_ ) for @paths ;
}
|