File Coverage

blib/lib/Net/IPMessenger/ToStdoutEventHandler.pm

Criterion	Covered	Total	%
statement	21	47	44.6
branch			n/a
condition			n/a
subroutine	7	12	58.3
pod	5	5	100.0
total	33	64	51.5

package Net::IPMessenger::ToStdoutEventHandler;

use warnings;
use strict;
use Encode qw( from_to );
use IO::Socket;
use POSIX;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
use base qw( Net::IPMessenger::EventHandler );

sub output {
    my $str = shift;
    from_to($str, 'shiftjis', 'euc-jp');
    my $time = strftime("%Y-%m-%d %H:%M:%S", localtime);
    print YELLOW "At \"$time\", " . $str;
    print RESET "\n";
}

sub debug {
    my $self = shift;
    my $them = shift;
    my $user = shift;

    my $peeraddr = inet_ntoa( $them->socket->peeraddr );
    my $peerport = $them->socket->peerport;
    my $command  = $them->messagecommand( $user->command );
    my $modename = $command->modename;

    print CYAN "Received $modename from [$peeraddr:$peerport]";
    print RESET "\n";
}

sub BR_ENTRY {
    my $self = shift;
    my $them = shift;
    my $user = shift;

    output($user->nickname . " joined.");
}

sub BR_EXIT {
    my $self = shift;
    my $them = shift;
    my $user = shift;

    output($user->nickname . " left.");
}

sub SENDMSG {
    my $self = shift;
    my $them = shift;
    my $user = shift;

    output("you got message from " . $user->nickname . " .\a");
}

1;
__END__