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, @_); } |