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');
16 sub two : Private Relative {
17 my ( $self, $c ) = @_;
18 $c->res->output('access allowed');
21 sub three : Private Absolute {
22 my ( $self, $c ) = @_;
23 $c->res->output('access allowed');
26 sub four : Private Path('/action/private/four') {
27 my ( $self, $c ) = @_;
28 $c->res->output('access allowed');
31 sub five : Private Path('five') {
32 my ( $self, $c ) = @_;
33 $c->res->output('access allowed');