
AnySan - ANY mesSaging protocol hANdler

# 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;

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

Kazuhiro Osawa <yappo <at> shibuya <döt> pl>


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