perltidy code and add .perltidyrc to repo

[p5sagit/Log-Contextual.git] / t / eg.t

diff --git a/t/eg.t b/t/eg.t
index 0d7843c..e28a116 100644 (file)
--- a/t/eg.t
+++ b/t/eg.t
@@ -5,35 +5,35 @@ use Log::Contextual::SimpleLogger;
 use Test::More qw(no_plan);
 use Log::Contextual qw(:log set_logger);
 
-my ($var1,$var2,$var3);
+my ($var1, $var2, $var3);
 my $complex_dispatcher = do {
 
    my $l1 = Log::Contextual::SimpleLogger->new({
-      levels  => [qw(trace debug info warn error fatal)],
-      coderef => sub { $var1 = shift },
+         levels  => [qw(trace debug info warn error fatal)],
+         coderef => sub { $var1 = shift },
    });
 
    my $l2 = Log::Contextual::SimpleLogger->new({
-      levels  => [qw(trace debug info warn error fatal)],
-      coderef => sub { $var2 = shift },
+         levels  => [qw(trace debug info warn error fatal)],
+         coderef => sub { $var2 = shift },
    });
 
    my $l3 = Log::Contextual::SimpleLogger->new({
-      levels  => [qw(trace debug info warn error fatal)],
-      coderef => sub { $var3 = shift },
+         levels  => [qw(trace debug info warn error fatal)],
+         coderef => sub { $var3 = shift },
    });
 
    my %registry = (
       -logger => $l3,
-      A1 => {
+      A1      => {
          -logger => $l1,
          lol     => $l2,
       },
-      A2 => { -logger => $l2 },
+      A2 => {-logger => $l2},
    );
 
    sub {
-      my ( $package, $info ) = @_;
+      my ($package, $info) = @_;
 
       my $logger = $registry{'-logger'};
       if (my $r = $registry{$package}) {
@@ -43,7 +43,7 @@ my $complex_dispatcher = do {
          $logger = $r->{$sub} if $r->{$sub};
       }
       return $logger;
-   }
+     }
 };
 
 set_logger $complex_dispatcher;
@@ -74,19 +74,29 @@ A3::squint();
 is($var3, "[debug] 2.var3\n", "global default logger works");
 
 BEGIN {
+
    package A1;
    use Log::Contextual ':log';
 
-   sub lol { log_debug { '1.var2' } }
-   sub rofl { log_debug { '1.var1' } }
+   sub lol {
+      log_debug { '1.var2' }
+   }
+
+   sub rofl {
+      log_debug { '1.var1' }
+   }
 
    package A2;
    use Log::Contextual ':log';
 
-   sub foo  { log_debug { '2.var2' } }
+   sub foo {
+      log_debug { '2.var2' }
+   }
 
    package A3;
    use Log::Contextual ':log';
 
-   sub squint { log_debug { '2.var3' } }
+   sub squint {
+      log_debug { '2.var3' }
+   }
 }