Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Action::Private; |
2 | |
3 | use strict; |
4 | use base 'TestApp::Controller::Action'; |
5 | |
6 | sub default : Private { |
7 | my ( $self, $c ) = @_; |
8 | $c->res->output('access denied'); |
9 | } |
10 | |
11 | sub one : Private { |
12 | my ( $self, $c ) = @_; |
13 | $c->res->output('access allowed'); |
14 | } |
15 | |
16 | sub two : Private Relative { |
17 | my ( $self, $c ) = @_; |
18 | $c->res->output('access allowed'); |
19 | } |
20 | |
21 | sub three : Private Absolute { |
22 | my ( $self, $c ) = @_; |
23 | $c->res->output('access allowed'); |
24 | } |
25 | |
26 | sub four : Private Path('/action/private/four') { |
27 | my ( $self, $c ) = @_; |
28 | $c->res->output('access allowed'); |
29 | } |
30 | |
31 | sub five : Private Path('five') { |
32 | my ( $self, $c ) = @_; |
33 | $c->res->output('access allowed'); |
34 | } |
35 | |
36 | 1; |