3 unless ($ENV{PERL_TEST_Net_Ping}) {
4 print "1..0 # Skip: network dependent test\n";
12 # Test to make sure object can be instantiated for udp protocol.
13 # I do not know of any servers that support udp echo anymore.
19 # Everything loaded fine
22 my $p = new Net::Ping "udp";