Reindent code and Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index f6d6aa00bc3d0b274eddae2d7c6980f91971f74c..9fb700d3155c793b11d4b198a998fc5b6e190aa4 100644 (file)
--- 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 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 }