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