Commit | Line | Data |
2f381252 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | package TestAppPathBug; |
f15ff320 |
5 | use strict; |
6 | use warnings; |
2f381252 |
7 | use Catalyst; |
8 | |
9 | our $VERSION = '0.01'; |
10 | |
11 | __PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' ); |
12 | |
f15ff320 |
13 | __PACKAGE__->log(TestAppPathBug::Log->new); |
2f381252 |
14 | __PACKAGE__->setup; |
15 | |
cb88f828 |
16 | sub foo : Path { |
17 | my ( $self, $c ) = @_; |
18 | $c->res->body( 'This is the foo method.' ); |
19 | } |
20 | |
f15ff320 |
21 | package TestAppPathBug::Log; |
22 | use strict; |
23 | use warnings; |
24 | use base qw/Catalyst::Log/; |
25 | |
26 | sub warn {} |
27 | |
2f381252 |
28 | 1; |