X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FDelegation.pm;h=8043586c5e004de962e28947f34f2127469a311c;hb=a486d5ade76c569625615022b49d03c92d6e93c2;hp=b5a1fce732cd3e28b1b8795205a45fb43829aaf3;hpb=113d3174264db82cb788bc846f617584072cba39;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Method/Delegation.pm b/lib/Moose/Meta/Method/Delegation.pm index b5a1fce..8043586 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.91'; +our $VERSION = '1.19'; $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(@_); }; } @@ -190,9 +190,7 @@ constructor. =head1 BUGS -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. +See L for details on reporting bugs. =head1 AUTHOR