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