Lines Matching defs:Socket
8 if (!eval "require Socket") {
9 print "1..0 # no Socket\n"; exit 0;
14 $INC{'IO/Socket.pm'} = 1;
16 $INC{'IO/Socket/INET.pm'} = 1;
23 # cannot use(), otherwise it will use IO::Socket and IO::Select
29 make_fail('IO::Socket::INET', 'new');
31 is( $badsock, undef, '_socket() should fail if Socket creation fails' );
35 ok( $sock->isa('IO::Socket::INET'), 'should be an IO::Socket::INET object' );
41 ok( $sock->isa('IO::Socket::INET'), 'should be an IO::Socket::INET object' );
48 IO::Socket::INET::set_message('z');
58 IO::Socket::INET::set_message(pack("N", $offset + 6));
72 package IO::Socket::INET;
74 $fail{'IO::Socket::INET'} = {