=> args 1
=> sub { $REQ{baz} = $_[2] };
+chain_point '_set_user'
+ => chained '/'
+ => path_part 'user'
+ => capture_args 1
+ => sub { $REQ{user} = $_[2] };
+
+get ''
+ => chained '_set_user'
+ => args 0
+ => sub { $REQ{empty} = $REQ{user} };
+
sub normal : Chained('/') : Args(0) {
$REQ{normal}++;
}
}
{
+ get('/user/99');
+
+ is(
+ $MyApp1::Controller::C1::REQ{user}, 99,
+ 'get /user/99 calls _set_user chain point'
+ );
+
+ is(
+ $MyApp1::Controller::C1::REQ{empty}, 99,
+ 'get /user/99 calls get chained from _set_user'
+ );
+}
+
+{
get('/normal');
is(