[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Root.pm

package TestApp::Controller::Root;

use base 'Catalyst::Controller';

__PACKAGE__->config->{namespace} = '';

sub chain_root_index : Chained('/') PathPart('') Args(0) { }

sub zero : Path('0') {
    my ( $self, $c ) = @_;
    $c->res->header( 'X-Test-Class' => ref($self) );
    $c->response->content_type('text/plain; charset=utf-8');
    $c->forward('TestApp::View::Dump::Request');
}

sub localregex : LocalRegex('^localregex$') {
    my ( $self, $c ) = @_;
    $c->res->header( 'X-Test-Class' => ref($self) );
    $c->response->content_type('text/plain; charset=utf-8');
    $c->forward('TestApp::View::Dump::Request');
}

1;
Commit	Line	Data
32d5a0c5	1	package TestApp::Controller::Root;
	2
	3	use base 'Catalyst::Controller';
	4
	5	__PACKAGE__->config->{namespace} = '';
	6
81e75875	7	sub chain_root_index : Chained('/') PathPart('') Args(0) { }
81e75875	8
53119b78	9	sub zero : Path('0') {
	10	my ( $self, $c ) = @_;
	11	$c->res->header( 'X-Test-Class' => ref($self) );
	12	$c->response->content_type('text/plain; charset=utf-8');
	13	$c->forward('TestApp::View::Dump::Request');
	14	}
	15
19c01ee1	16	sub localregex : LocalRegex('^localregex$') {
	17	my ( $self, $c ) = @_;
	18	$c->res->header( 'X-Test-Class' => ref($self) );
	19	$c->response->content_type('text/plain; charset=utf-8');
	20	$c->forward('TestApp::View::Dump::Request');
	21	}
	22
32d5a0c5	23	1;