1#!perl 2 3use 5.008001; 4 5use strict; 6use warnings; 7 8BEGIN { 9 if (!eval { require Socket }) { 10 print "1..0 # Skip: no Socket\n"; exit 0; 11 } 12 if (ord('A') == 193 && !eval { require Convert::EBCDIC }) { 13 print "1..0 # Skip: EBCDIC but no Convert::EBCDIC\n"; exit 0; 14 } 15} 16 17print "1..9\n"; 18my $i = 1; 19eval { require Net::Config; } || print "not "; print "ok ",$i++,"\n"; 20eval { require Net::Domain; } || print "not "; print "ok ",$i++,"\n"; 21eval { require Net::Cmd; } || print "not "; print "ok ",$i++,"\n"; 22eval { require Net::Netrc; } || print "not "; print "ok ",$i++,"\n"; 23eval { require Net::FTP; } || print "not "; print "ok ",$i++,"\n"; 24eval { require Net::SMTP; } || print "not "; print "ok ",$i++,"\n"; 25eval { require Net::NNTP; } || print "not "; print "ok ",$i++,"\n"; 26eval { require Net::POP3; } || print "not "; print "ok ",$i++,"\n"; 27eval { require Net::Time; } || print "not "; print "ok ",$i++,"\n"; 28 29 30