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=223891725f82f470dfdddd294c69be29f23831b4;hb=a486d5ade76c569625615022b49d03c92d6e93c2;hp=1b468c664d317925171c83cc1fba324aeb186ffe;hpb=0504b18b49a440305d83a1d1dd1d2bc0a1a1148d;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 1b468c6..2238917 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Number/div.pm @@ -14,7 +14,7 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { qw( _minimum_arguments _maximum_arguments - _optimized_set_new_value + _inline_optimized_set_new_value ) ] }; @@ -30,11 +30,11 @@ sub _potential_value { return $slot_access . ' / $_[0]'; } -sub _optimized_set_new_value { +sub _inline_optimized_set_new_value { my $self = shift; my ($inv, $new, $slot_access) = @_; - return $slot_access . ' /= $_[0]'; + return $slot_access . ' /= $_[0];'; } no Moose::Role;