Commit | Line | Data |
dc5f035e |
1 | use strict; |
2 | use warnings; |
3 | |
4 | package TestAppStats; |
5 | |
6 | use Catalyst qw/ |
7 | -Stats=1 |
8 | /; |
9 | |
10 | our $VERSION = '0.01'; |
11 | our @log_messages; |
12 | |
13 | __PACKAGE__->config( name => 'TestAppStats', root => '/some/dir' ); |
14 | |
15 | __PACKAGE__->log(TestAppStats::Log->new); |
16 | |
17 | __PACKAGE__->setup; |
18 | |
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)); |
24 | @log_messages = (); |
25 | } |
26 | |
27 | package TestAppStats::Log; |
28 | use base qw/Catalyst::Log/; |
29 | |
30 | sub info { push(@log_messages, @_); } |
31 | sub debug { push(@log_messages, @_); } |