Lines Matching refs:Socket

8 use IO::Socket::IP;
9 use Socket qw( inet_pton inet_ntop pack_sockaddr_in6 unpack_sockaddr_in6 IN6ADDR_LOOPBACK );
11 my $AF_INET6 = eval { Socket::AF_INET6() } or
17    socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!";
29    return ( Socket::unpack_sockaddr_in6( shift ) )[0,1];
33    my $testserver = IO::Socket->new;
34    $testserver->socket( $AF_INET6, Socket->$socktype, 0 )
37 …my ( $err, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$sock…
46    my $testport = ( Socket::unpack_sockaddr_in6 $testserver->sockname )[0];
48    my $socket = IO::Socket::IP->new(
51       Type        => Socket->$socktype,
59    is( $socket->socktype,   Socket->$socktype, "\$socket->socktype for $socktype" );