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 | |
10 | sub foo :PathPart('childof/foo') :Captures(1) :ChildOf('/') { } |
11 | |
12 | sub bar :PathPart('childof/bar') :ChildOf('/') { } |
13 | |
14 | sub endpoint :PathPart('end') :ChildOf('/action/childof/foo') :Args(1) { } |
15 | |
16 | sub finale :ChildOf('bar') :Args { } |
17 | |
18 | sub end :Private { |
19 | my ($self, $c) = @_; |
20 | my $out = join('; ', map { join(', ', @$_) } |
21 | ($c->req->captures, $c->req->args)); |
22 | $c->res->body($out); |
23 | } |
24 | |
25 | 1; |