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

use strict;
use warnings;

package TestAppPathBug;

use Catalyst;

our $VERSION = '0.01';

__PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );

__PACKAGE__->setup;

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

1;
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;