dwww Home | Manual pages | Find package

Socket::GetAddrInfo::SUsertContributed Perl DoSocket::GetAddrInfo::Strict(3pm)

NAME
       "Socket::GetAddrInfo::Strict" - Provide Socket::GetAddrInfo functions
       which throw exceptions

SYNOPSIS
        use Socket qw( SOCK_STREAM );
        use Socket::GetAddrInfo::Strict qw( getaddrinfo getnameinfo );
        use IO::Socket;

        my $sock;

        my %hints = ( socktype => SOCK_STREAM );
        my @res = getaddrinfo( "www.google.com", "www", \%hints );

        while( my $ai = shift @res ) {

           $sock = IO::Socket->new();
           $sock->socket( $ai->{family}, $ai->{socktype}, $ai->{protocol} ) or
              undef $sock, next;

           $sock->connect( $ai->{addr} ) or undef $sock, next;

           last;
        }

        if( $sock ) {
           my ( $host, $service ) = getnameinfo( $sock->peername );
           print "Connected to $host:$service\n";
        }

DESCRIPTION
       Socket::GetAddrInfo provides the functions of "getaddrinfo" and
       "getnameinfo", which return lists whose first element is error value,
       or false indicating no error occurred.

       This module wraps the functions provided by "Socket::GetAddrInfo" to
       check this error value, and throw an exception (using "die") if an
       error occurred.  If not, then the remaining values are returned as
       normal. This can simplify the logic of a program which otherwise simply
       throws its own exception on failure anyway.

FUNCTIONS
   @res = getaddrinfo( $host, $service, $hints )
       After a successful lookup, returns the list of address structures, as
       documented in Socket::GetAddrInfo. If the lookup fails, an exception
       containing the string form of the error is thrown instead.

   ( $host, $service ) = getnameinfo( $addr, $flags, $xflags )
       After a successful lookup, returns the host and service name, as
       documented in Socket::GetAddrInfo. If the lookup fails, an exception
       containing the string form of the error is thrown instead.

AUTHOR
       Paul Evans <leonerd@leonerd.org.uk>

perl v5.34.0                      2022-10-13  Socket::GetAddrInfo::Strict(3pm)

Generated by dwww version 1.15 on Sun Jun 30 10:37:20 CEST 2024.