Net-Async-HTTP
view release on metacpan or search on metacpan
examples/GET.pl view on Meta::CPAN
8910111213141516171819202122232425262728use
Getopt::Long;
use
IO::Async::Loop;
use
Net::Async::HTTP;
my
$FAMILY
;
GetOptions(
'local-host=s'
=> \
my
$LOCAL_HOST
,
'local-port=i'
=> \
my
$LOCAL_PORT
,
'timeout=f'
=> \
my
$TIMEOUT
,
'ipv4|4'
=>
sub
{
$FAMILY
=
"inet"
},
'ipv6|6'
=>
sub
{
$FAMILY
=
"inet6"
},
) or
exit
1;
my
$loop
= IO::Async::Loop->new;
my
$ua
= Net::Async::HTTP->new(
local_host
=>
$LOCAL_HOST
,
local_port
=>
$LOCAL_PORT
,
family
=>
$FAMILY
,
decode_content
=> 1,
);
( run in 0.234 second using v1.01-cache-2.11-cpan-1dc43b0fbd2 )