X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FDelegation.pm;h=32e7f9c549fadd2fafed1d31a591551190f8898f;hb=c279b82ffd1a06a550f2cfa623382d0335dbc39a;hp=82eef7e1f2740b864581d6dfd3f2c453d07a831f;hpb=eaf5a43ef108f6a9dce74c84afc25a892cffdfb1;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Method/Delegation.pm b/lib/Moose/Meta/Method/Delegation.pm index 82eef7e..32e7f9c 100644 --- a/lib/Moose/Meta/Method/Delegation.pm +++ b/lib/Moose/Meta/Method/Delegation.pm @@ -7,7 +7,7 @@ use warnings; use Carp 'confess'; use Scalar::Util 'blessed', 'weaken'; -our $VERSION = '0.90'; +our $VERSION = '0.92'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -104,8 +104,8 @@ sub _initialize_body { object => $instance ); } - my @args = (@{ $self->curried_arguments }, @_); - $proxy->$method_to_call(@args); + unshift @_, @{ $self->curried_arguments }; + $proxy->$method_to_call(@_); }; }