X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FNumber%2Fdiv.pm;h=acfc95e9e06e8dca596fe847cbffd06a9ac1f69d;hb=f4b86ac0e1fd7ff8a180f2f8332821170db5371e;hp=eafdb96827e84ee2ceef942d5aed20350ab91230;hpb=584540d9166f6651182e953c57a10d9648fea1a9;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm b/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm
index eafdb96..acfc95e 100644
--- a/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm
@@ -3,13 +3,24 @@ package Moose::Meta::Method::Accessor::Native::Number::div;
 use strict;
 use warnings;
 
-our $VERSION = '1.14';
+our $VERSION = '1.16';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
-use base 'Moose::Meta::Method::Accessor::Native::Writer';
+use Moose::Role;
+
+with 'Moose::Meta::Method::Accessor::Native::Writer' => {
+    -excludes => [
+        qw(
+            _minimum_arguments
+            _maximum_arguments
+            _inline_optimized_set_new_value
+            )
+    ]
+    };
 
 sub _minimum_arguments {1}
+
 sub _maximum_arguments {1}
 
 sub _potential_value {
@@ -24,4 +35,6 @@ sub _inline_optimized_set_new_value {
     return "$slot_access /= \$_[0]";
 }
 
+no Moose::Role;
+
 1;