view release on metacpan or  search on metacpan

examples/client.pl  view on Meta::CPAN

require IO::Async::SSL if $SSL;

my $loop = IO::Async::Loop->new;

my $irc = Net::Async::IRC->new(
   on_message => sub {
      my ( $self, $command, $message, $hints ) = @_;
      return if $hints->{handled};

      printf "<<%s>>: %s\n", $command, join( " ", $message->args );
      print "| $_\n" for split m/\n/, pp( $hints );

      return 1;
   },
   use_caps => [
      ( $USE_SASL ? "sasl" : () ),
   ],
);
$loop->add( $irc );

$PORT //= ( $SSL ? 6697 : 6667 );