Provided by: libsocket-getaddrinfo-perl_0.22-3_all bug

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>