X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FNumber%2Fabs.pm;h=b53bf3155ddd32f6d55c8589636a151af293478d;hb=f4b86ac0e1fd7ff8a180f2f8332821170db5371e;hp=ebeb683c4270338133385bb23f521293640ffeda;hpb=584540d9166f6651182e953c57a10d9648fea1a9;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Method/Accessor/Native/Number/abs.pm b/lib/Moose/Meta/Method/Accessor/Native/Number/abs.pm index ebeb683..b53bf31 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Number/abs.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Number/abs.pm @@ -3,13 +3,21 @@ package Moose::Meta::Method::Accessor::Native::Number::abs; 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( + _maximum_arguments + _inline_optimized_set_new_value + ) + ] + }; -sub _minimum_arguments {0} sub _maximum_arguments {0} sub _potential_value { @@ -24,4 +32,6 @@ sub _inline_optimized_set_new_value { return "$slot_access = abs($slot_access)"; } +no Moose::Role; + 1;