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; |