x.pl

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';

use AnySan;
use AnySan::Provider::IRC;


my $irc = irc
    'chat.freenode.net',
    key      => 'example1',
    nickname => 'AnySan1',
    recive_commands => [qw/ JOIN /],
    channels => {
        '#nantoka' => {},
        '#nantara' => {},
    };

AnySan->register_listener(
    on_join => {
        cb => sub {
            my $receive = shift;
            return unless $receive->attribute('command') eq 'JOIN';
            $receive->send_reply('たいがーふぁいやーばいばー') while 1;
        },
    },
);

AnySan->run;