File Coverage

blib/lib/Net/IPMessenger/Bot.pm

Criterion	Covered	Total	%
statement	25	36	69.4
branch			n/a
condition			n/a
subroutine	7	11	63.6
pod	2	4	50.0
total	34	51	66.6

package Net::IPMessenger::Bot;

use strict;
use warnings;
use 5.008_005;
our $VERSION = '0.05';

use Net::IPMessenger;
use Net::IPMessenger::Bot::EventHandler;

sub new {
    my ( $class, %args ) = @_;

    my $ipmsg   = Net::IPMessenger->new( %{ $args{configure} } );
    my $handler = Net::IPMessenger::Bot::EventHandler->new(
        handler => $args{on_message},
    );
    $ipmsg->add_event_handler($handler);

    my $self = bless { ipmsg => $ipmsg }, $class;
    $self->_set_signal_handlers;

    return $self;
}

sub start {
    my $self = shift;
    $self->join();
    while ( $self->{ipmsg}->recv() ) { }
}

sub join {
    my $self = shift;

    my $cmd = $self->{ipmsg}->messagecommand('BR_ENTRY')->set_broadcast;
    $self->{ipmsg}->send(
        {
            command => $cmd,
            option  => $self->{ipmsg}->my_info,
        }
    );
}

sub _set_signal_handlers {
    my $self = shift;
    $SIG{INT} = $SIG{TERM} = sub { $self->sighandle_INT() };
}

sub sighandle_INT {
    my $self = shift;

    my $cmd = $self->{ipmsg}->messagecommand('BR_EXIT')->set_broadcast;
    $self->{ipmsg}->send( { command => $cmd } );

    exit;
}


1;
__END__