Net-Async-HTTP

 view release on metacpan or  search on metacpan

examples/GET.pl  view on Meta::CPAN

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
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 )