From: André Walker Date: Fri, 29 Jul 2011 04:00:02 +0000 (-0300) Subject: Fixed WithAcceptContext to use params correctly X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=17fe1041cf283a668b882e53cffc4899d9354481 Fixed WithAcceptContext to use params correctly --- diff --git a/lib/Catalyst/IOC/Service/WithAcceptContext.pm b/lib/Catalyst/IOC/Service/WithAcceptContext.pm index 8f4ebfc..713ca92 100644 --- a/lib/Catalyst/IOC/Service/WithAcceptContext.pm +++ b/lib/Catalyst/IOC/Service/WithAcceptContext.pm @@ -10,12 +10,13 @@ has accept_context_sub => ( ); around 'get' => sub { - my ( $orig, $self, %params ) = @_; + my $orig = shift; + my $self = shift; - my $accept_context_args = delete $params{accept_context_args}; + my $instance = $self->$orig(@_); - my $instance = $self->$orig(%params); - my $ac_sub = $self->accept_context_sub; + my $accept_context_args = $self->param('accept_context_args'); + my $ac_sub = $self->accept_context_sub; if ( $accept_context_args && $instance->can($ac_sub) ) { return $instance->$ac_sub( @$accept_context_args ); @@ -33,7 +34,7 @@ __END__ =head1 NAME -Catalyst::Service::WithContext +Catalyst::Service::WithAcceptContext =head1 DESCRIPTION