t/lib/TestApp/Controller/Action/ChildOf.pm

   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;