Fail commit was fail. Back out the part I didn't want

[catagits/Catalyst-Runtime.git] / t / lib / TestAppStats.pm

diff --git a/t/lib/TestAppStats.pm b/t/lib/TestAppStats.pm
index 99d0e1e..bfc1340 100644 (file)
--- a/t/lib/TestAppStats.pm
+++ b/t/lib/TestAppStats.pm
@@ -16,9 +16,16 @@ __PACKAGE__->log(TestAppStats::Log->new);
 
 __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, @_); }