projects
/
catagits/Catalyst-Runtime.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a91b5feb1e00774ea3ca8813e449be4447e0280f
[catagits/Catalyst-Runtime.git]
/
t
/
lib
/
TestAppPathBug.pm
1
use strict;
2
use warnings;
3
4
package TestAppPathBug;
5
6
BEGIN { $SIG{__WARN__} = sub {}; };
7
8
use Catalyst;
9
10
our $VERSION = '0.01';
11
12
__PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );
13
14
__PACKAGE__->setup;
15
16
sub foo : Path {
17
my ( $self, $c ) = @_;
18
$c->res->body( 'This is the foo method.' );
19
}
20
21
1;