1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
print "1..12\n";
my $i = 1;
eval { require Net::Config; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::Domain; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::Cmd; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::Telnet; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::Netrc; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::FTP; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::SMTP; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::NNTP; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::SNPP; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::PH; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::POP3; } || print "not "; print "ok ",$i++,"\n";
eval { require Net::Time; } || print "not "; print "ok ",$i++,"\n";
|
