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

package ACLTestApp::Controller::Root;

use base 'Catalyst::Controller';

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

sub foobar : Private {
    die $Catalyst::DETACH;
}

sub gorch : Local {
    my ( $self, $c, $frozjob ) = @_;
    is $frozjob, 'wozzle';
    $c->res->body("gorch");
}

1;
Commit	Line	Data
b3986722	1	package ACLTestApp::Controller::Root;
	2
	3	use base 'Catalyst::Controller';
	4
	5	__PACKAGE__->config->{namespace} = '';
	6
	7	sub foobar : Private {
	8	die $Catalyst::DETACH;
	9	}
	10
	11	sub gorch : Local {
	12	my ( $self, $c, $frozjob ) = @_;
	13	is $frozjob, 'wozzle';
	14	$c->res->body("gorch");
	15	}
	16
	17	1;