From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 16 Aug 2014 21:51:00 +0000 (+0300)
Subject: Reindent code and Makefile.PL
X-Git-Tag: 0.001002~4
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=8d8f2a70e73d27c1bea19ca6a61c5e5ac11b7ecd;p=poe-component-irc-plugin-logger-irssi.git

Reindent code and Makefile.PL
---

diff --git a/Makefile.PL b/Makefile.PL
index f6d6aa0..9fb700d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,14 +2,14 @@ use 5.014000;
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-    NAME              => 'POE::Component::IRC::Plugin::Logger::Irssi',
-    VERSION_FROM      => 'lib/POE/Component/IRC/Plugin/Logger/Irssi.pm',
-    PREREQ_PM         => {},
+	NAME              => 'POE::Component::IRC::Plugin::Logger::Irssi',
+	VERSION_FROM      => 'lib/POE/Component/IRC/Plugin/Logger/Irssi.pm',
+	PREREQ_PM         => {},
 	MIN_PERL_VERSION  => '5.14.0',
 	ABSTRACT_FROM     => 'lib/POE/Component/IRC/Plugin/Logger/Irssi.pm',
 	AUTHOR            => 'Marius Gavrilescu <marius@ieval.ro>',
 	LICENSE           => 'perl',
 	META_ADD          => {
-	  dynamic_config  => 0,
+		dynamic_config  => 0,
 	}
 );
diff --git a/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm b/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
index 462fa15..79c96b9 100644
--- 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 }