NAME

Net::IPMessenger::Bot - IPMessenger-Bot building framework

SYNOPSIS

            

              
              
#!/usr/bin/env perl
use strict;
use warnings;
use Net::IPMessenger::Bot;
use Sys::Hostname;
my $bot = Net::IPMessenger::Bot->new(
    configure => {
        UserName  => 'ipmsg_bot',
        NickName  => 'ipmsg_bot',
        GroupName => 'bot',
        HostName  => hostname(),
    },
    on_message => sub {
        my $user = shift;
        "Hello " . $user->nickname;
    },
);
$bot->start;
            
          

DESCRIPTION

Net::IPMessenger::Bot is an IPMessenger-Bot building framework.

METHODS

Net::IPMessenger::Bot implements following methods.

new

            

              
              
my $bot = Net::IPMessenger::Bot->new(
    configure => {
        UserName  => 'ipmsg_bot',
        NickName  => 'ipmsg_bot',
        GroupName => 'bot',
        HostName  => hostname(),
    },
    on_message => sub {
        my $user = shift;
        "Hello " . $user->nickname;
    },
);
            
          

Construct a new Net::IPMessenger::Bot.

configure

            

              
              
configure => {
    UserName  => 'ipmsg_bot',
    NickName  => 'ipmsg_bot',
    GroupName => 'bot',
    HostName  => hostname(),
},
            
          

options for Net::IPMessenger#new.

on_message

            

              
              
on_message => sub {
    my $user = shift;
    "Hello " . $user->nickname;
}
            
          

or

            

              
              
on_message => [
    qr/hello/ => sub {
      my $user = shift;
      "Hello " . $user->nickname;
    },
    qr/goodbye/ => sub {
      my $user = shift;
      "Goodbye " . $user->nickname;
    },
}
            
          

register callback.

start

            

              
              
$bot->start;
            
          

start bot.

AUTHOR

hayajo <hayajo@cpan.org>

COPYRIGHT

Copyright 2013- hayajo

LICENSE

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

SEE ALSO

Net::IPMessenger