view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

$client->on( 'exit', sub { $cv->send } );

$cv->recv;

__END__

=pod

=head1 SYNOPSIS

    you> say hello
    bot> hello
    you> leave
    bot> has left the room.

=cut