perltidy code and add .perltidyrc to repo

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

diff --git a/t/default_logger.t b/t/default_logger.t
index 797bf4b..b509cd2 100644 (file)
--- a/t/default_logger.t
+++ b/t/default_logger.t
@@ -8,40 +8,47 @@ my $var1;
 my $var2;
 my $var3;
 my $var_logger1 = 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 $var_logger2;
+
 BEGIN {
    $var_logger2 = 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 $var_logger3;
+
 BEGIN {
    $var_logger3 = 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 },
+      })
 }
 
 {
+
    package J;
-   use Log::Contextual qw{:dlog :log with_logger set_logger}, -default_logger => $var_logger3;
+   use Log::Contextual qw{:dlog :log with_logger set_logger},
+     -default_logger => $var_logger3;
 
    sub foo {
       log_debug { 'bar' };
    }
+
    sub bar {
       Dlog_debug { "bar: $_" } 'frew';
    }
 }
 
 {
+
    package K;
-   use Log::Contextual qw{:log with_logger set_logger}, -default_logger => $var_logger2;
+   use Log::Contextual qw{:log with_logger set_logger},
+     -default_logger => $var_logger2;
 
    sub foo {
       log_debug { 'foo' };
@@ -58,5 +65,5 @@ $var2 = '';
 set_logger($var_logger1);
 
 K::foo;
-is($var2, q(), '... but set_logger wins');
+is($var2, q(),             '... but set_logger wins');
 is($var1, "[debug] foo\n", '... and gets the value');