@@ -31,6 +31,9 @@ sub magic_side_request :Local{ my( $self, $c, @rest_of_path ) = @_; $c->debug('magic side request happens!'); + $c->stash->{side_called} ||= 0; + $c->stash->{side_called}++; + my $path = '/'.join '/', @rest_of_path; $c->request->path($path); @@ -39,4 +42,22 @@ sub magic_side_request :Local{ $c->go($c->action, $c->request->args, $c->request->captures); } -;1; +sub root : Chained('/') PathPart('') CaptureArgs(0) { + my( $self, $c, $arg ) = @_; + $c->stash->{root_called} ||= 0; + $c->stash->{root_called}++; +} + +sub foo : Chained('root') PathPart('foo2') CaptureArgs(1) { + my( $self, $c, $arg ) = @_; + $c->stash->{foo_called} ||= 0; + $c->stash->{foo_called}++; +} + +sub other_end : Chained('foo') PathPart('') Args(1) { + my( $self, $c, $arg ) = @_; + $c->stash->{other_called} ||= 0; + $c->stash->{other_called}++; +} + +1; lib/MyApp.pm @@ -2,7 +2,7 @@ use MyApp; use Catalyst::Test qw< MyApp >; -use Test::More tests => 4; +use Test::More tests => 10; my( $res, $c ) = ctx_request( '/foo/x/bar' ); @@ -15,7 +15,15 @@ my( $res, $c ) = ctx_request( '/magic_side_request/foo/x/bar' ); is( $c->stash->{chain_called}, 1, 'called chain indirectly, chain should happen once' ); is( $c->stash->{chain_end_called}, 1, 'called chain end indirectly, chain should happen once' ); +my( $res, $c ) = ctx_request( '/foo2/x/y' ); +is( $c->stash->{other_called}, 1); +is( $c->stash->{foo_called}, 1); +is( $c->stash->{root_called}, 1); +my( $res, $c ) = ctx_request( '/magic_side_request/foo2/x/y' ); +is( $c->stash->{other_called}, 1); +is( $c->stash->{foo_called}, 1); +is( $c->stash->{root_called}, 1); t/go.t c9c46c2ca22fc9deafbc47d44d2f0ac1967cb4e6 t0m bobtfish@bobtfish.net http://github.com/bobtfish/catalyst-app-bug-go_chain/commit/78c801351eb400b387ccb60a02f2727fec01d3f0 78c801351eb400b387ccb60a02f2727fec01d3f0 2009-04-24T16:18:22-07:00 2009-04-24T16:18:22-07:00 Is this just things with captures, what if you capture multiple things? 8f84fca5ca0397049c10319ba23f66aaaecbb003 t0m bobtfish@bobtfish.net