[catagits/Catalyst-Runtime.git] / t / lib / TestPath / Controller / Four.pm

package TestPath::Controller::Four;
use Moose;
use namespace::clean -except => [ 'meta' ];

BEGIN { extends 'Catalyst::Controller' }

sub four :Path('') :Args() {
    my ( $self, $c ) = @_;
    $c->response->body( 'OK' );
}

__PACKAGE__->meta->make_immutable;
Commit	Line	Data
43b44b3a	1	package TestPath::Controller::Four;
43b44b3a	2	use Moose;
eefc03e1	3	use namespace::clean -except => [ 'meta' ];
43b44b3a	4
	5	BEGIN { extends 'Catalyst::Controller' }
	6
	7	sub four :Path('') :Args() {
	8	my ( $self, $c ) = @_;
	9	$c->response->body( 'OK' );
	10	}
	11
eefc03e1	12	__PACKAGE__->meta->make_immutable;