Actually unshift curried args into @_

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Array.pm b/lib/Moose/Meta/Method/Accessor/Native/Array.pm
index 0380f59..fb249b7 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor/Native/Array.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Array.pm
@@ -17,7 +17,7 @@ sub _inline_curried_arguments {
 
     return q{} unless @{ $self->curried_arguments };
 
-    return "\@_ = ( \@curried, \@_ );";
+    return 'unshift @_, @curried;'
 }
 
 sub _inline_check_constraint {