t/lib/ACLTestApp/Controller/Root.pm

   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;