10 our $VERSION = '0.01';
13 __PACKAGE__->config( name => 'TestAppStats', root => '/some/dir' );
15 __PACKAGE__->log(TestAppStats::Log->new);
19 # Return log messages from previous request
20 sub default : Private {
21 my ( $self, $c ) = @_;
22 $c->stats->profile("test");
23 $c->res->body(join("\n", @log_messages));
27 package TestAppStats::Log;
28 use base qw/Catalyst::Log/;
30 sub info { push(@log_messages, @_); }
31 sub debug { push(@log_messages, @_); }