X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FHash%2Fdelete.pm;h=219770029ddc26050c34cac268838b8a36a49f5f;hb=efa728b4984ddf1611bc9931fbc209438459652c;hp=b5368bd023a3dfa86fba8bb3b7a15134ea4d3a5e;hpb=10bd99ecf3f1706d4452fa57e3f08a63b9f92a11;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Hash/delete.pm b/lib/Moose/Meta/Method/Accessor/Native/Hash/delete.pm
index b5368bd..2197700 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Hash/delete.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Hash/delete.pm
@@ -3,11 +3,14 @@ package Moose::Meta::Method::Accessor::Native::Hash::delete;
 use strict;
 use warnings;
 
-our $VERSION = '1.14';
+our $VERSION = '1.15';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
-use base 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
+use Moose::Role;
+
+with 'Moose::Meta::Method::Accessor::Native::Hash::Writer' =>
+    { -excludes => ['_inline_optimized_set_new_value'] };
 
 sub _adds_members { 0 }
 
@@ -20,7 +23,9 @@ sub _potential_value {
 sub _inline_optimized_set_new_value {
     my ( $self, $inv, $new, $slot_access ) = @_;
 
-    return "delete \@{ $slot_access }{\@_};";
+    return "delete \@{ $slot_access }{\@_}";
 }
 
+no Moose::Role;
+
 1;