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 | |
dc5f035e |
19 | package TestAppStats::Log; |
20 | use base qw/Catalyst::Log/; |
21 | |
cb88f828 |
22 | sub info { push(@TestAppStats::log_messages, @_); } |
23 | sub debug { push(@TestAppStats::log_messages, @_); } |
ff812a23 |
24 | |
25 | 1; |
26 | |