1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl
use strict;
use warnings;
use IO::Async::Test;
use Test::More;
use IO::Async::Loop;
use IO::Async::Handle;
use constant HAVE_IO_SOCKET_IP => eval { require IO::Socket::IP };
my $loop = IO::Async::Loop->new_builtin;
testing_loop( $loop );
# ->bind a UDP service
{
my $recv_count;
my $receiver = IO::Async::Handle->new(
on_read_ready => sub { $recv_count++ },
on_write_ready => sub { },
);
$loop->add( $receiver );
$receiver->bind(
service => "0",
socktype => "dgram",
# If we don't have IO::Socket::IP then force 'inet' so we don't get a
# PF_INET6 that's then wrapped in a plain IO::Socket instance which
# lacks ->sockport
( HAVE_IO_SOCKET_IP ? () : ( family => "inet" ) ),
)->get;
ok( $receiver->read_handle->sockport, '$receiver bound to a read handle' );
}
done_testing;
|
