[Catalyst-commits] r8598 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[jhannah at dev.catalyst.perl.org]

Author: jhannah
Date: 2008-11-12 21:47:54 +0000 (Wed, 12 Nov 2008)
New Revision: 8598

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Stats.pm
Log:
Trim down any times >= 10 to avoid ugly Text::Simple line wrapping.


Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Stats.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Stats.pm	2008-11-12 21:18:45 UTC (rev 8597)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Stats.pm	2008-11-12 21:47:54 UTC (rev 8598)
@@ -103,8 +103,10 @@
                       $stat->{elapsed},
                       $stat->{action} ? 1 : 0,
                       );
+                # Trim down any times >= 10 to avoid ugly Text::Simple line wrapping
+                my $elapsed = substr(sprintf("%f", $stat->{elapsed}), 0, 8) . "s";
                 $t->row( ( q{ } x $r[0] ) . $r[1],
-                     defined $r[2] ? sprintf("%fs", $r[2]) : '??');
+                     defined $r[2] ? $elapsed : '??');
                 push(@results, \@r);
                 }
             );