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=68147d52e945261c8f8c735e61525f503508d02c;hpb=1e2c801e852e22b0ab5af1efc34667710ba952de;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 68147d5..4669788 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm
@@ -5,17 +5,16 @@ use warnings;
 
 use Class::MOP::MiniTrait;
 
-our $VERSION = '1.19';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
 use Moose::Role;
 
-with 'Moose::Meta::Method::Accessor::Native::Writer' => {
-        -excludes => ['_inline_coerce_new_values'],
-    },
-    'Moose::Meta::Method::Accessor::Native::Hash',
-    'Moose::Meta::Method::Accessor::Native::Collection';
+with 'Moose::Meta::Method::Accessor::Native::Writer',
+     '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' }