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

use strict;
use warnings;

package TestAppPathBug;
use strict;
use warnings;
use Catalyst;

our $VERSION = '0.01';

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

__PACKAGE__->log(TestAppPathBug::Log->new);
__PACKAGE__->setup;

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

package TestAppPathBug::Log;
use strict;
use warnings;
use base qw/Catalyst::Log/;

sub warn {}

1;
Commit	Line	Data
ceae39c5	1	use strict;
	2	use warnings;
	3
	4	package TestAppPathBug;
	5	use strict;
	6	use warnings;
	7	use Catalyst;
	8
	9	our $VERSION = '0.01';
	10
	11	__PACKAGE__->config( name => 'TestAppPathBug', root => '/some/dir' );
	12
	13	__PACKAGE__->log(TestAppPathBug::Log->new);
	14	__PACKAGE__->setup;
	15
	16	sub foo : Path {
	17	my ( $self, $c ) = @_;
	18	$c->res->body( 'This is the foo method.' );
	19	}
	20
	21	package TestAppPathBug::Log;
	22	use strict;
	23	use warnings;
	24	use base qw/Catalyst::Log/;
	25
	26	sub warn {}
	27
	28	1;