[Catalyst-commits] r7067 - Catalyst-Runtime/5.70/trunk/lib

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-10-26 05:33:37 +0100 (Fri, 26 Oct 2007)
New Revision: 7067

Modified:
   Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
Log:
Clean up some ugly code with hard tabs

Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2007-10-26 04:13:09 UTC (rev 7066)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst.pm	2007-10-26 04:33:37 UTC (rev 7067)
@@ -1273,22 +1273,28 @@
 
         # forward, locate the caller
         if ( my $parent = $c->stack->[-1] ) {
-            $c->stats->profile(begin => $action, 
-                               parent => "$parent" . $c->counter->{"$parent"},
-			       uid => $uid);
+            $c->stats->profile(
+                begin  => $action, 
+                parent => "$parent" . $c->counter->{"$parent"},
+                uid    => $uid,
+            );
         }
         else {
 
             # forward with no caller may come from a plugin
-            $c->stats->profile(begin => $action,
-			       uid => $uid);
+            $c->stats->profile(
+                begin => $action,
+                uid   => $uid,
+            );
         }
     }
     else {
         
         # root-level call
-        $c->stats->profile(begin => $action,
-			   uid => $uid);
+        $c->stats->profile(
+            begin => $action,
+            uid   => $uid,
+        );
     }
     return $action;
 
@@ -1296,7 +1302,7 @@
 
 sub _stats_finish_execute {
     my ( $c, $info ) = @_;
-    $c->stats->profile(end => $info);
+    $c->stats->profile( end => $info );
 }
 
 =head2 $c->_localize_fields( sub { }, \%keys );