[catagits/CatalystX-Debug-ResponseHeaders.git] / t / lib / TestApp / Controller / Root.pm

package TestApp::Controller::Root;
use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller' }

__PACKAGE__->config(namespace => q{});

sub base : Chained('/') PathPart('') CaptureArgs(0) {}

# your actions replace this one
sub main : Chained('base') PathPart('') Args(0) {
    my ($self, $ctx) = @_;
    $ctx->res->body('<h1>It works</h1>');
}

__PACKAGE__->meta->make_immutable;
Commit	Line	Data
019a8a6a	1	package TestApp::Controller::Root;
	2	use Moose;
	3	use namespace::autoclean;
	4
	5	BEGIN { extends 'Catalyst::Controller' }
	6
	7	__PACKAGE__->config(namespace => q{});
	8
	9	sub base : Chained('/') PathPart('') CaptureArgs(0) {}
	10
	11	# your actions replace this one
	12	sub main : Chained('base') PathPart('') Args(0) {
	13	my ($self, $ctx) = @_;
	14	$ctx->res->body('<h1>It works</h1>');
	15	}
	16
	17	__PACKAGE__->meta->make_immutable;