t/lib/ACLTestApp/Controller/Root.pm

   1 package ACLTestApp::Controller::Root;
   2 use Test::More;
   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;