[catagits/Catalyst-Runtime.git] / t / lib / TestAppPathBug / Controller / Root.pm

package TestAppPathBug::Controller::Root;
use strict;
use warnings;
use base qw/Catalyst::Controller/;

__PACKAGE__->config(namespace => '');

sub foo : Path {
    my ( $self, $c ) = @_;
    $c->res->body( 'This is the foo method.' );
}

1;
Commit	Line	Data
c14a10db	1	package TestAppPathBug::Controller::Root;
	2	use strict;
	3	use warnings;
	4	use base qw/Catalyst::Controller/;
	5
	6	__PACKAGE__->config(namespace => '');
	7
	8	sub foo : Path {
	9	my ( $self, $c ) = @_;
	10	$c->res->body( 'This is the foo method.' );
	11	}
	12
	13	1;
	14