X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FChildOf.pm;fp=t%2Flib%2FTestApp%2FController%2FAction%2FChildOf.pm;h=2bb2818bbea6e04dff811e2b4f663828b8a24dec;hp=0000000000000000000000000000000000000000;hb=141459fa3fc9852fd6f05138caddb410bbe2949c;hpb=a8762dd4f8ea1338b9b45ecf37c0107f2710d398

diff --git a/t/lib/TestApp/Controller/Action/ChildOf.pm b/t/lib/TestApp/Controller/Action/ChildOf.pm
new file mode 100644
index 0000000..2bb2818
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/ChildOf.pm
@@ -0,0 +1,25 @@
+package TestApp::Controller::Action::ChildOf;
+
+use strict;
+use warnings;
+
+use base qw/Catalyst::Controller/;
+
+sub begin :Private { }
+
+sub foo :PathPart('childof/foo') :Captures(1) :ChildOf('/') { }
+
+sub bar :PathPart('childof/bar') :ChildOf('/') { }
+
+sub endpoint :PathPart('end') :ChildOf('/action/childof/foo') :Args(1) { }
+
+sub finale :ChildOf('bar') :Args { }
+
+sub end :Private {
+  my ($self, $c) = @_;
+  my $out = join('; ', map { join(', ', @$_) }
+                         ($c->req->captures, $c->req->args));
+  $c->res->body($out);
+}
+
+1;