File Coverage

blib/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	18	19	94.7

package POE::Component::IRC::Plugin::Logger::Irssi;

our $VERSION = '0.001002';

use 5.014000;
use strict;
use warnings;

use parent qw/Exporter/;

our @EXPORT_OK = qw/irssi_format/;

##################################################

my %irssi_format = (
	nick_change => sub { "-!- $_[0] is now known as $_[1]" },
	topic_is => sub { "-!- Topic for $_[0]: $_[1]"},
	topic_change => sub {
		my ($nick, $topic) = @_;
		return "-!- $nick changed the topic to: $topic" if $topic;
		return "-!- Topic unset by $nick" unless $topic;
	},
	privmsg => sub{ "<$_[0]> $_[1]" },
	notice => sub { "-$_[0]- $_[1]" },
	action => sub { "* $_[0] $_[1]" },
	join => sub { "-!- $_[0] [$_[1]] has joined $_[2]" },
	part => sub { "-!- $_[0] [$_[1]] has left $_[2] [$_[3]]" },
	quit => sub { "-!- $_[0] [$_[1]] has quit [$_[2]]"},
	kick => sub { "-!- $_[1] was kicked from $_[2] by $_[0] [$_[3]]"},
	topic_set_by => sub { "-!- Topic set by $_[1] [". localtime($_[2]) .']' },
);

for my $letter ('a' .. 'z', 'A' .. 'Z') {
	$irssi_format{"+$letter"} = sub { my $nick = shift; "-!- mode [+$letter @_] by $nick" };
	$irssi_format{"-$letter"} = sub { my $nick = shift; "-!- mode [-$letter @_] by $nick" }
}

sub irssi_format { \%irssi_format }

1;
__END__