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=7e06103ff75bce159e14bff7f0acf103d83aa21b;hpb=1d06edbfadf08687599bd8c8fd711f8c14cc2363;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 7e06103..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.16';
-$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;