X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FHash%2FWriter.pm;h=4669788873afbb318f381ed5a2ee36743c790716;hb=00bbc132f9e1cb2b1a44aa287887cafa27a84577;hp=4f83c0718379a60e9ae332ee105e285cc432949a;hpb=8b9641b857cdd065a68f9b74ad072b1d58fcd4e1;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm b/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm
index 4f83c07..4669788 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm
@@ -5,22 +5,24 @@ use warnings;
 
 use Class::MOP::MiniTrait;
 
-our $VERSION = '1.14';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
 use Moose::Role;
 
 with 'Moose::Meta::Method::Accessor::Native::Writer',
-    'Moose::Meta::Method::Accessor::Native::Hash',
-    'Moose::Meta::Method::Accessor::Native::Collection';
+     'Moose::Meta::Method::Accessor::Native::Hash',
+     'Moose::Meta::Method::Accessor::Native::Collection';
+
+sub _inline_coerce_new_values {
+    my $self = shift;
+    $self->Moose::Meta::Method::Accessor::Native::Collection::_inline_coerce_new_values(@_);
+}
 
-sub _new_values {'@values'}
+sub _new_values { '@values' }
 
-sub _inline_copy_old_value {
-    my ( $self, $slot_access ) = @_;
+sub _copy_old_value {
+    my $self = shift;
+    my ($slot_access) = @_;
 
-    return '{ %{' . $slot_access . '} }';
+    return '{ %{ (' . $slot_access . ') } }';
 }
 
 no Moose::Role;