From: Jesse Luehrs Date: Sat, 16 Oct 2010 05:51:24 +0000 (-0500) Subject: this is just what the default implementation does X-Git-Tag: 1.16~39 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=798c2385fc278177ca8065542b357a5ade3fe7a1;p=gitmo%2FMoose.git this is just what the default implementation does --- diff --git a/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm b/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm index bc146ca..1a701cb 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm @@ -15,7 +15,6 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { _minimum_arguments _maximum_arguments _inline_optimized_set_new_value - _return_value ) ] }; @@ -35,12 +34,6 @@ sub _inline_optimized_set_new_value { return "$slot_access -= defined \$_[0] ? \$_[0] : 1"; } -sub _return_value { - my ( $self, $slot_access ) = @_; - - return "return $slot_access;"; -} - no Moose::Role; 1; diff --git a/lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm b/lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm index ada0a97..2f5a9b4 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm @@ -15,7 +15,6 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { _minimum_arguments _maximum_arguments _inline_optimized_set_new_value - _return_value ) ] }; @@ -35,12 +34,6 @@ sub _inline_optimized_set_new_value { return "$slot_access += defined \$_[0] ? \$_[0] : 1"; } -sub _return_value { - my ( $self, $slot_access ) = @_; - - return "return $slot_access;"; -} - no Moose::Role; 1; diff --git a/lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm b/lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm index 843e65a..72e788e 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm @@ -14,7 +14,6 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { qw( _maximum_arguments _inline_optimized_set_new_value - _return_value ) ] }; @@ -33,12 +32,6 @@ sub _inline_optimized_set_new_value { return "$slot_access = \$attr->default(\$self)"; } -sub _return_value { - my ( $self, $slot_access ) = @_; - - return "return $slot_access;"; -} - no Moose::Role; 1; diff --git a/lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm b/lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm index 4c3628b..e6c00bd 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm @@ -15,7 +15,6 @@ with 'Moose::Meta::Method::Accessor::Native::Writer' => { _minimum_arguments _maximum_arguments _inline_optimized_set_new_value - _return_value ) ] }; @@ -31,12 +30,6 @@ sub _inline_optimized_set_new_value { return "$slot_access = \$_[0];"; } -sub _return_value { - my ( $self, $slot_access ) = @_; - - return "return $slot_access;"; -} - no Moose::Role; 1;