X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FView%2FComponent%2FSubInclude%2FSubRequest.pm;h=1d4cadca2c8e6daf1192e6a34dd093c9cb28f95c;hb=f91a7d21c753463d37f02cf9642ca80ddf0dadc7;hp=be966587f8d535aaf2030b5d406e68cc7cf13780;hpb=84616d2a8aa249873c1b4b5524234e30956eee9e;p=catagits%2FCatalyst-View-Component-SubInclude.git diff --git a/lib/Catalyst/View/Component/SubInclude/SubRequest.pm b/lib/Catalyst/View/Component/SubInclude/SubRequest.pm index be96658..1d4cadc 100644 --- a/lib/Catalyst/View/Component/SubInclude/SubRequest.pm +++ b/lib/Catalyst/View/Component/SubInclude/SubRequest.pm @@ -3,7 +3,7 @@ use warnings; use strict; use Carp qw/croak/; -use namespace::clean qw/croak/; +use namespace::clean; =head1 NAME @@ -11,11 +11,11 @@ Catalyst::View::Component::SubInclude::SubRequest - Sub-requests plugin for C::V =head1 VERSION -Version 0.04 +Version 0.07 =cut -our $VERSION = '0.04'; +our $VERSION = '0.07'; =head1 SYNOPSIS @@ -76,14 +76,15 @@ sub generate_subinclude { croak "subincludes through subrequests require Catalyst::Plugin::SubRequest" unless $c->can('sub_request'); - my $args = ref $params[0] eq 'ARRAY' ? shift @params : []; + my $args = ref $params[0] eq 'ARRAY' ? shift @params : []; + my $query = ref $params[-1] eq 'HASH' ? pop @params : {}; my $dispatcher = $c->dispatcher; my ($action) = $dispatcher->_invoke_as_path( $c, $path, $args ); my $uri = $c->uri_for( $action, $args, @params ); - $c->sub_request( $uri->path, $stash, @params ); + $c->sub_request( $uri->path, $stash, $query ); } =head1 SEE ALSO