Reindent

diff --git a/Makefile.PL b/Makefile.PL
index 19cc1185483f8692624cc41cfb4ed5668fa3f5d1..13f75843f067bcf0c9795dbaff72fa5f2e4b5d28 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,19 +2,19 @@ use 5.014000;
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-    NAME             => 'POE::Component::IRC::Plugin::Hello',
-    VERSION_FROM     => 'lib/POE/Component/IRC/Plugin/Hello.pm',
+       NAME             => 'POE::Component::IRC::Plugin::Hello',
+       VERSION_FROM     => 'lib/POE/Component/IRC/Plugin/Hello.pm',
        ABSTRACT_FROM    => 'lib/POE/Component/IRC/Plugin/Hello.pm',
        AUTHOR           => 'Marius Gavrilescu <marius@ieval.ro>',
        MIN_PERL_VERSION => 5.014000,
        LICENSE          => 'perl',
        SIGN             => 1,
-    PREREQ_PM        => {
-         'List::Util' => 0,
-         'IRC::Utils' => 0,
-         'POE::Component::IRC::Plugin' => 0,
+       PREREQ_PM        => {
+               'List::Util' => 0,
+               'IRC::Utils' => 0,
+               'POE::Component::IRC::Plugin' => 0,
        },
        BUILD_REQUIRES   => {
-         'Test::MockObject' => 1.09,
+               'Test::MockObject' => 1.09,
        },
 );

diff --git a/lib/POE/Component/IRC/Plugin/Hello.pm b/lib/POE/Component/IRC/Plugin/Hello.pm
index 90c14f1223cc5844294d8cedb6466827717e4b54..a5770aa0350d03020f2ef22cc2871cde4ae3be60 100644 (file)
--- a/lib/POE/Component/IRC/Plugin/Hello.pm
+++ b/lib/POE/Component/IRC/Plugin/Hello.pm
@@ -11,32 +11,32 @@ use IRC::Utils qw/parse_user/;
 use POE::Component::IRC::Plugin qw/PCI_EAT_NONE/;
 
 sub new {
-  my $class = shift;
-  my $self = {
-       greetings => [qw/privet hello salut salutari neata neaţa hola hey hi bonjour wassup sup hallo chikmaa tungjatjeta parev salam namaskaar mingalarba ahoy saluton allo moin aloha namaste shalom ciào ciao servus salve ave merhaba witaj hei hola selam sawubona/, "what's up", 'que tal', 'こんにちは', '你好', 'ni hao'],
-       @_
-  };
+       my $class = shift;
+       my $self = {
+               greetings => [qw/privet hello salut salutari neata neaţa hola hey hi bonjour wassup sup hallo chikmaa tungjatjeta parev salam namaskaar mingalarba ahoy saluton allo moin aloha namaste shalom ciào ciao servus salve ave merhaba witaj hei hola selam sawubona/, "what's up", 'que tal', 'こんにちは', '你好', 'ni hao'],
+               @_
+       };
 
-  bless $self, $class
+       bless $self, $class
 }
 
 sub PCI_register {
-  my ($self, $irc) = @_;
-  $irc->plugin_register($self, SERVER => qw/public/);
-  1
+       my ($self, $irc) = @_;
+       $irc->plugin_register($self, SERVER => qw/public/);
+       1
 }
 
 sub PCI_unregister { 1 }
 
 sub S_public{
-  my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
-  my $nick = parse_user $$rfullname;
-  my $mynick = $irc->nick_name;
-  my @hello = @{$self->{greetings}};
-
-  my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*$/i } @hello;
-  $irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
-  PCI_EAT_NONE
+       my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
+       my $nick = parse_user $$rfullname;
+       my $mynick = $irc->nick_name;
+       my @hello = @{$self->{greetings}};
+
+       my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*$/i } @hello;
+       $irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
+       PCI_EAT_NONE
 }
 
 1;

diff --git a/t/POE-Component-IRC-Plugin-Hello.t b/t/POE-Component-IRC-Plugin-Hello.t
index ebb2ef597dd35746ba8c0810548304e87810f74c..dab4d9ccd4e95e8c362e50d1fd2c173ec76e060e 100644 (file)
--- a/t/POE-Component-IRC-Plugin-Hello.t
+++ b/t/POE-Component-IRC-Plugin-Hello.t
@@ -18,10 +18,10 @@ my $channels = [ '#chan' ];
 
 # Sub setup
 sub runtest{
-  my ($message, $expect, $comment) = @_;
-  $hello_sent=0;
-  $self->S_public($mockirc, \'mgv!marius@ieval.ro', \$channels, \$message);
-  ok($hello_sent == $expect, $comment)
+       my ($message, $expect, $comment) = @_;
+       $hello_sent=0;
+       $self->S_public($mockirc, \'mgv!marius@ieval.ro', \$channels, \$message);
+       ok($hello_sent == $expect, $comment)
 }
 
 #Tests