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

package ACLTestApp::Controller::Root;
use Test::More;

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;
a9d5be5a	2	use Test::More;
b3986722	3
	4	use base 'Catalyst::Controller';
	5
	6	__PACKAGE__->config->{namespace} = '';
	7
	8	sub foobar : Private {
	9	die $Catalyst::DETACH;
	10	}
	11
	12	sub gorch : Local {
	13	my ( $self, $c, $frozjob ) = @_;
	14	is $frozjob, 'wozzle';
	15	$c->res->body("gorch");
	16	}
	17
	18	1;