Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Action::Path; |
2 | |
3 | use strict; |
4 | use base 'TestApp::Controller::Action'; |
5 | |
c02f7490 |
6 | __PACKAGE__->config( |
7 | actions => { |
8 | 'one' => { 'Path' => [ 'a path with spaces' ] }, |
9 | 'two' => { 'Path' => "åäö" }, |
fa649eb7 |
10 | 'six' => { 'Local' => undef }, |
c02f7490 |
11 | }, |
12 | ); |
13 | |
14 | sub one : Action Path("this_will_be_overriden") { |
dd4e6fd2 |
15 | my ( $self, $c ) = @_; |
16 | $c->forward('TestApp::View::Dump::Request'); |
17 | } |
18 | |
c02f7490 |
19 | sub two : Action { |
dd4e6fd2 |
20 | my ( $self, $c ) = @_; |
21 | $c->forward('TestApp::View::Dump::Request'); |
22 | } |
23 | |
b74baa06 |
24 | sub three :Path { |
25 | my ( $self, $c ) = @_; |
26 | $c->forward('TestApp::View::Dump::Request'); |
27 | } |
28 | |
9e674714 |
29 | sub four : Path( 'spaces_near_parens_singleq' ) { |
30 | my ( $self, $c ) = @_; |
31 | $c->forward('TestApp::View::Dump::Request'); |
32 | } |
33 | |
34 | sub five : Path( "spaces_near_parens_doubleq" ) { |
35 | my ( $self, $c ) = @_; |
36 | $c->forward('TestApp::View::Dump::Request'); |
37 | } |
38 | |
fa649eb7 |
39 | sub six { |
40 | my ( $self, $c ) = @_; |
41 | $c->forward('TestApp::View::Dump::Request'); |
42 | } |
43 | |
dd4e6fd2 |
44 | 1; |