Commit | Line | Data |
e28a6876 |
1 | package TestApp::Controller::Action::Chained::Foo; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base qw/Catalyst::Controller/; |
7 | |
8 | # |
9 | # Child of current namespace |
10 | # |
11 | sub spoon :Chained('.') :Args(0) { } |
12 | |
13 | # |
14 | # Root for a action in a "parent" controller |
15 | # |
16 | sub higher_root :PathPart('chained/higher_root') :Chained('/') :CaptureArgs(1) { } |
17 | |
18 | # |
19 | # Parent controller -> this subcontroller -> parent controller test |
20 | # |
21 | sub pcp2 :Chained('/action/chained/pcp1') :CaptureArgs(1) { } |
22 | |
23 | # |
24 | # Controllers not in parent/child relation. This tests the end. |
25 | # |
26 | sub cross2 :PathPart('end') :Chained('/action/chained/bar/cross1') :Args(1) { } |
27 | |
28 | # |
29 | # Create a uri to the root index |
30 | # |
31 | sub to_root : Chained('/') PathPart('action/chained/to_root') { |
32 | my ( $self, $c ) = @_; |
33 | my $uri = $c->uri_for_action('/chain_root_index'); |
34 | $c->res->body( "URI:$uri" ); |
35 | $c->stash->{no_end}++; |
36 | } |
37 | |
38 | 1; |