The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

AnySan - ANY mesSaging protocol hANdler

SYNOPSIS

# echo bot use AnySan; use AnySan::Provider::IRC;

my $irc = irc 'chat.example.net', key => 'example1', nickname => 'AnySan1', channels => { '#anysan1' => {}, '#anysan2' => {}, };

AnySan->register_listener( echo => { cb => sub { my $receive = shift; return unless $receive->message =~ /^!yappo/; $receive->send_replay($receive->message); } } );

AnySan->run;

DESCRIPTION

AnySan is AnyEvent based some messaging protocol handling program tool kit.

AUTHOR

Kazuhiro Osawa shibuya pl>

SEE ALSO

AnySan::Receive, AnyEvent

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.