Reindent code and Makefile.PL

[poe-component-irc-plugin-logger-irssi.git] / lib / POE / Component / IRC / Plugin / Logger / Irssi.pm

diff --git a/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm b/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
index 462fa159b2eb4adf44d3d296cd67978fb04a90bc..79c96b94caa3ee63aea31d10fca71ac18fe046c0 100644 (file)
--- a/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
+++ b/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
@@ -13,26 +13,26 @@ 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]) .']' },
+       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" }
+       $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 }