__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, @_); }
+++ /dev/null
-package TestAppStats::Controller::Root;
-use strict;
-use warnings;
-use base qw/Catalyst::Controller/;
-
-__PACKAGE__->config->{namespace} = '';
-
-# Return log messages from previous request
-sub default : Private {
- my ( $self, $c ) = @_;
- $c->stats->profile("test");
- $c->res->body(join("\n", @TestAppStats::log_messages));
- @TestAppStats::log_messages = ();
-}
-
-1;
-