1 package TestApp::Controller::Action::Private;
4 use base 'TestApp::Controller::Action';
6 sub default : Private {
8 $c->res->output('access denied');
12 my ( $self, $c ) = @_;
13 $c->res->output('access allowed');
17 my ( $self, $c ) = @_;
18 $c->res->output('access allowed');
22 my ( $self, $c ) = @_;
23 $c->res->output('access allowed');
27 my ( $self, $c ) = @_;
28 $c->res->output('access allowed');
32 my ( $self, $c ) = @_;
33 $c->res->output('access allowed');