r10055@cain (orig r4392): matthewt | 2006-06-17 16:01:24 +0000
sub dispatch {
my ( $self, $c ) = @_;
+ my @captures = @{$c->req->captures||[]};
foreach my $action ( @{ $self->chain } ) {
+ my @args;
+ if (my $cap = $action->attributes->{Captures}) {
+ @args = splice(@captures, 0, $cap->[0]);
+ }
+ local $c->request->{arguments} = \@args;
$action->dispatch( $c );
}
}