X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppStats.pm;h=6e3b3203858b6ba52c0015bcb3a5ac93df525e44;hp=bfc134019af08fd15d8cc09b2323a310271b6d42;hb=cb88f828a7fa6a90b46d1c7bca2d116820ea3d04;hpb=346a21ea173251414e3626343c9d195f831e5595 diff --git a/t/lib/TestAppStats.pm b/t/lib/TestAppStats.pm index bfc1340..6e3b320 100644 --- a/t/lib/TestAppStats.pm +++ b/t/lib/TestAppStats.pm @@ -16,16 +16,8 @@ __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(@log_messages, @_); } -sub debug { push(@log_messages, @_); } +sub info { push(@TestAppStats::log_messages, @_); } +sub debug { push(@TestAppStats::log_messages, @_); }