The Perl Advent Calendar needs more articles for 2022. Submit your idea today!
#!/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;