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