X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppStats.pm;h=84cc85c7dc9989f5f15fcc311d0213a51dd7c91d;hb=68b4caec7950a4dc7ed003fe0e78f73baf81f9d3;hp=bfc134019af08fd15d8cc09b2323a310271b6d42;hpb=2cc36f4415a78401dfceb07020fee718c439b993;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; +