[Catalyst-commits] r11166 - Catalyst-Runtime/5.80/trunk/t/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-19 19:04:59 +0000 (Wed, 19 Aug 2009)
New Revision: 11166

Removed:
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/
Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm
Log:
Fail commit was fail. Back out the part I didn't want

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm	2009-08-19 19:03:01 UTC (rev 11165)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm	2009-08-19 19:04:59 UTC (rev 11166)
@@ -16,9 +16,16 @@
 
 __PACKAGE__->setup;
 
+# Return log messages from previous request
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->stats->profile("test");
+    $c->res->body(join("\n", @log_messages));
+    @log_messages = ();
+}
 
 package TestAppStats::Log;
 use base qw/Catalyst::Log/;
 
-sub info { push(@TestAppStats::log_messages, @_); }
-sub debug { push(@TestAppStats::log_messages, @_); }
+sub info { push(@log_messages, @_); }
+sub debug { push(@log_messages, @_); }