X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppStats.pm;h=84cc85c7dc9989f5f15fcc311d0213a51dd7c91d;hb=4e45fa288ea80bf2a4587dd2278c784286aafdc3;hp=bfc134019af08fd15d8cc09b2323a310271b6d42;hpb=dc5f035ee51a9833b5340e3ee597f5722263042f;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestAppStats.pm b/t/lib/TestAppStats.pm index bfc1340..84cc85c 100644 --- a/t/lib/TestAppStats.pm +++ b/t/lib/TestAppStats.pm @@ -16,16 +16,11 @@ __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, @_); } + +1; +