### ----------------------------------------------------
### -- POSIX::getaddrinfo
### -- Licenses: Artistic 2.0
### -- Authors: Mark Devine <mark@markdevine.com>
### -- File: examples/getaddrinfo.raku
### ----------------------------------------------------
#!/usr/bin/env raku

#use POSIX::getaddrinfo :Get-Addr-Info;
#use POSIX::getaddrinfo :Get-Addr-Info-IPV4-STREAM;
#use POSIX::getaddrinfo :Get-Addr-Info-IPV4-STREAM-IPAddrs;
#use POSIX::getaddrinfo :Get-Addr-Info-IPV4-STREAM-Names;
use POSIX::getaddrinfo :ALL;

unit sub MAIN (
    Str:D   :$host is required,     #= host to resolve
);

put 'Get-Addr-Info'; dd Get-Addr-Info($host);
put 'Get-Addr-Info-IPV4-STREAM'; dd Get-Addr-Info-IPV4-STREAM($host);
put 'Get-Addr-Info-IPV4-STREAM-IPAddrs'; dd Get-Addr-Info-IPV4-STREAM-IPAddrs($host);
put 'Get-Addr-Info-IPV4-STREAM-Names'; dd Get-Addr-Info-IPV4-STREAM-Names($host);

=finish


