Reindent code

diff --git a/lib/POE/Component/IRC/Plugin/Seen.pm b/lib/POE/Component/IRC/Plugin/Seen.pm
index 56c661591565a629053712eae5313116dff21930..86a0984071f58c512445a2294cd6a14332714e5a 100644 (file)
--- a/lib/POE/Component/IRC/Plugin/Seen.pm
+++ b/lib/POE/Component/IRC/Plugin/Seen.pm
@@ -14,76 +14,76 @@ use POE::Component::IRC::Plugin qw/PCI_EAT_NONE PCI_EAT_PLUGIN/;
 ##################################################
 
 sub new{
 ##################################################
 
 sub new{

-  my $class = shift;
-  my $self = { @_ };
+       my $class = shift;
+       my $self = { @_ };

 
 

-  $self->{dbobj} = tie my %db, DB_File => $self->{filename};
-  $self->{db} = \%db;
-  bless $self, $class
+       $self->{dbobj} = tie my %db, DB_File => $self->{filename};
+       $self->{db} = \%db;
+       bless $self, $class

 }
 
 sub log_event {
 }
 
 sub log_event {

-  my ($self, $nick, $event) = @_;
-  my $time = localtime;
-  $self->{db}->{$nick} = "$time $event";
-  $self->{dbobj}->sync;
-  PCI_EAT_NONE
+       my ($self, $nick, $event) = @_;
+       my $time = localtime;
+       $self->{db}->{$nick} = "$time $event";
+       $self->{dbobj}->sync;
+       PCI_EAT_NONE

 }
 
 sub seen {
 }
 
 sub seen {

-  my ($self, $irc, $nick, $to, $from) = @_;
-  if (exists $self->{db}->{$nick}) {
-       $irc->yield(privmsg => $to => "I last saw $nick $self->{db}->{$nick}")
-  } else {
-       $irc->yield(privmsg => $to => "I haven't seen $nick")
-  }
-  PCI_EAT_PLUGIN
+       my ($self, $irc, $nick, $to, $from) = @_;
+       if (exists $self->{db}->{$nick}) {
+               $irc->yield(privmsg => $to => "I last saw $nick $self->{db}->{$nick}")
+       } else {
+               $irc->yield(privmsg => $to => "I haven't seen $nick")
+       }
+       PCI_EAT_PLUGIN

 }
 
 sub PCI_register {
 }
 
 sub PCI_register {

-  my ($self, $irc) = @_;
-  $irc->plugin_register($self, SERVER => qw/ctcp_action join part public msg/);
-  1
+       my ($self, $irc) = @_;
+       $irc->plugin_register($self, SERVER => qw/ctcp_action join part public msg/);
+       1

 }
 
 sub PCI_unregister { 1 }
 
 sub S_ctcp_action {
 }
 
 sub PCI_unregister { 1 }
 
 sub S_ctcp_action {

-  my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
-  my $nick = parse_user $$rfullname;
+       my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
+       my $nick = parse_user $$rfullname;

 
 

-  log_event $self, $nick => "on $$rchannels->[0] doing: * $$rmessage"
+       log_event $self, $nick => "on $$rchannels->[0] doing: * $$rmessage"

 }
 
 sub S_public {
 }
 
 sub S_public {

-  my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
-  my $nick = parse_user $$rfullname;
-  my $mynick = $irc->nick_name;
+       my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
+       my $nick = parse_user $$rfullname;
+       my $mynick = $irc->nick_name;

 
 

-  seen $self, $irc, $1, $$rchannels->[0], $nick if $$rmessage =~ /^(?:$mynick [,:])?\s*seen\s+([^ ]+)/x;
-  log_event $self, $nick => "on $$rchannels->[0] saying $$rmessage"
+       seen $self, $irc, $1, $$rchannels->[0], $nick if $$rmessage =~ /^(?:$mynick [,:])?\s*seen\s+([^ ]+)/x;
+       log_event $self, $nick => "on $$rchannels->[0] saying $$rmessage"

 }
 
 sub S_join {
 }
 
 sub S_join {

-  my ($self, $irc, $rfullname, $rchannel) = @_;
-  my $nick = parse_user $$rfullname;
+       my ($self, $irc, $rfullname, $rchannel) = @_;
+       my $nick = parse_user $$rfullname;

 
 

-  log_event $self, $nick => "joining $$rchannel"
+       log_event $self, $nick => "joining $$rchannel"

 }
 
 sub S_part {
 }
 
 sub S_part {

-  my ($self, $irc, $rfullname, $rchannel, $rmessage) = @_;
-  my $nick = parse_user $$rfullname;
-  my $msg = $$rmessage ? " with message '$$rmessage'" : '';
+       my ($self, $irc, $rfullname, $rchannel, $rmessage) = @_;
+       my $nick = parse_user $$rfullname;
+       my $msg = $$rmessage ? " with message '$$rmessage'" : '';

 
 

-  log_event $self, $nick => "parting $$rchannel$msg"
+       log_event $self, $nick => "parting $$rchannel$msg"

 }
 
 sub S_msg {
 }
 
 sub S_msg {

-  my ($self, $irc, $rfullname, $rtargets, $rmessage) = @_;
-  my $nick = parse_user $$rfullname;
+       my ($self, $irc, $rfullname, $rtargets, $rmessage) = @_;
+       my $nick = parse_user $$rfullname;

 
 

-  seen $self, $irc, $$rmessage, $$rtargets->[0], $nick if $$rmessage =~ /^seen\s+([^ ]+)/
+       seen $self, $irc, $$rmessage, $$rtargets->[0], $nick if $$rmessage =~ /^seen\s+([^ ]+)/

 }
 
 1;
 }
 
 1;

diff --git a/t/POE-Component-IRC-Plugin-Seen.t b/t/POE-Component-IRC-Plugin-Seen.t
index 0a0d925ea9852c464d295c7b548098993ec1cba1..5d97e322c619ed51797a20f955d9e5573d998bb1 100644 (file)
--- a/t/POE-Component-IRC-Plugin-Seen.t
+++ b/t/POE-Component-IRC-Plugin-Seen.t
@@ -21,10 +21,10 @@ my $rmgv = \'mgv!marius@ieval.ro';
 
 # Sub setup
 sub runtest{
 
 # Sub setup
 sub runtest{

-  my ($message, $expect, $comment) = @_;
-  undef $last_msg;
-  $self->S_public($mockirc, $rmgv, \$channels, \$message);
-  is($last_msg, $expect, $comment)
+       my ($message, $expect, $comment) = @_;
+       undef $last_msg;
+       $self->S_public($mockirc, $rmgv, \$channels, \$message);
+       is($last_msg, $expect, $comment)

 }
 
 runtest 'something', undef, 'initialize';
 }
 
 runtest 'something', undef, 'initialize';