X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FCounter%2Fdec.pm;h=d45494d69ed5ca44e472493da68a16c659531023;hb=d5f6cadef8d83deaf7dd95302908cd4f61aeab8a;hp=2de5bdb10ff20da2d8e05e46c8a4148f51b9f941;hpb=1e2c801e852e22b0ab5af1efc34667710ba952de;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm b/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm index 2de5bdb..d45494d 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm @@ -3,10 +3,6 @@ package Moose::Meta::Method::Accessor::Native::Counter::dec; use strict; use warnings; -our $VERSION = '1.19'; -$VERSION = eval $VERSION; -our $AUTHORITY = 'cpan:STEVAN'; - use Moose::Role; with 'Moose::Meta::Method::Accessor::Native::Writer' => { @@ -14,7 +10,7 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { qw( _minimum_arguments _maximum_arguments - _optimized_set_new_value + _inline_optimized_set_new_value ) ] }; @@ -29,11 +25,11 @@ sub _potential_value { return $slot_access . ' - (defined $_[0] ? $_[0] : 1)'; } -sub _optimized_set_new_value { +sub _inline_optimized_set_new_value { my $self = shift; my ($inv, $new, $slot_access) = @_; - return $slot_access . ' -= defined $_[0] ? $_[0] : 1'; + return $slot_access . ' -= defined $_[0] ? $_[0] : 1;'; } no Moose::Role;