1 package Catalyst::Plugin::SubRequest;
10 Catalyst::Plugin::SubRequest - Make subrequests to actions in Catalyst
14 use Catalyst 'SubRequest';
16 $c->subreq('/test','foo','bar');
20 Make subrequests to actions in Catalyst. Uses the private name of
21 the action for dispatch.
27 =item subreq action, args
31 takes the name of the action you would like to call, as well as the
32 arguments you want to pass to it.
38 *subreq = \&sub_request;
41 my ( $c, $action, @args ) = @_;
43 $old_req{stash} = $c->{stash};$c->{stash}={};
44 $old_req{content} = $c->res->output;$c->res->output(undef);
45 $old_req{args} = $c->req->arguments;$c->req->arguments([@args]);
46 $old_req{action} = $c->req->action;$c->req->action($action);
48 my $output = $c->res->output;
49 $c->{stash} = $old_req{stash};
50 $c->res->output($old_req{content});
51 $c->req->arguments($old_req{args});
52 $c->req->action($old_req{action});
62 Marcus Ramberg, C<mramberg@cpan.org>
66 SRI, for writing the awesome Catalyst framework
70 This program is free software, you can redistribute it and/or modify it under
71 the same terms as Perl itself.