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

use strict;
use warnings;

package TestAppPathBug;

BEGIN { $SIG{__WARN__} = sub {}; };

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
cb88f828	6	BEGIN { $SIG{__WARN__} = sub {}; };
cb88f828	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;