Commit | Line | Data |
141459fa |
1 | package TestApp::Controller::Action::ChildOf; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base qw/Catalyst::Controller/; |
7 | |
8 | sub begin :Private { } |
9 | |
922c58d6 |
10 | sub foo :PathPart('childof/foo') :Captures(1) :ChildOf('/') { } |
11 | sub foo2 :PathPart('childof/foo2') :Captures(2) :ChildOf('/') { } |
141459fa |
12 | |
13 | sub bar :PathPart('childof/bar') :ChildOf('/') { } |
14 | |
922c58d6 |
15 | sub endpoint :PathPart('end') :ChildOf('/action/childof/foo') :Args(1) { } |
16 | sub endpoint2 :PathPart('end2') :ChildOf('/action/childof/foo2') :Args(2) { } |
141459fa |
17 | |
18 | sub finale :ChildOf('bar') :Args { } |
19 | |
922c58d6 |
20 | sub one :PathPart('childof/one') :ChildOf('/') :Captures(1) { } |
21 | sub two :PathPart('two') :ChildOf('/action/childof/one') :Captures(2) { } |
22 | |
23 | sub three_end :PathPart('three') :ChildOf('two') :Args(3) { } |
24 | sub one_end :PathPart('childof/one') :ChildOf('/') :Args(1) { } |
25 | sub two_end :PathPart('two') :ChildOf('one') :Args(2) { } |
26 | |
27 | sub multi1 :PathPart('childof/multi') :ChildOf('/') :Args(1) { } |
28 | sub multi2 :PathPart('childof/multi') :ChildOf('/') :Args(2) { } |
29 | |
141459fa |
30 | sub end :Private { |
31 | my ($self, $c) = @_; |
32 | my $out = join('; ', map { join(', ', @$_) } |
33 | ($c->req->captures, $c->req->args)); |
34 | $c->res->body($out); |
35 | } |
36 | |
37 | 1; |