X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Farg.t;h=70d7bec2076a6af8ff3ec2a0c3e2d070408e078e;hb=6ae293d71e67272c06271aa5a122dc018a835da7;hp=501bec3e119b84949af9687a1389353395ebfbb7;hpb=1ed6e521b353e90f8543b9f42a23990618c2e5d3;p=p5sagit%2FLog-Contextual.git

diff --git a/t/arg.t b/t/arg.t
index 501bec3..70d7bec 100644
--- a/t/arg.t
+++ b/t/arg.t
@@ -10,9 +10,9 @@ my @levels = qw(debug trace warn info error fatal);
 
 BEGIN {
    $var_log = Log::Contextual::SimpleLogger->new({
-      levels  => [qw(trace debug info warn error fatal)],
-      coderef => sub { $var = shift }
-   })
+         levels  => [qw(trace debug info warn error fatal)],
+         coderef => sub { $var = shift }
+      })
 }
 
 use Log::Contextual qw{ :log :dlog}, -logger => $var_log;
@@ -20,14 +20,15 @@ use Log::Contextual qw{ :log :dlog}, -logger => $var_log;
 my @args = qw(fizz buzz fizzbuzz);
 
 for my $level (@levels) {
-    for my $prefix (qw(log logS Dlog DlogS)) {
+   for my $prefix (qw(log logS Dlog DlogS)) {
 
-       my $original = local $_ = "don't tread on me";
-       my $method_name = "${prefix}_${level}";
-       my $ref = __PACKAGE__->can($method_name) or die "no ref found for method $method_name";
+      my $original = local $_ = "don't tread on me";
+      my $method_name = "${prefix}_${level}";
+      my $ref         = __PACKAGE__->can($method_name)
+        or die "no ref found for method $method_name";
 
-       $ref->(sub { "$method_name" }, @args);
-       ok($_ eq $original, "\$_ was not disturbed by $method_name");
-       ok($var eq "[$level] $method_name\n", "log argument was correct");
-    }
+      $ref->(sub { "$method_name" }, @args);
+      ok($_ eq $original, "\$_ was not disturbed by $method_name");
+      ok($var eq "[$level] $method_name\n", "log argument was correct");
+   }
 }