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