this is just what the default implementation does
Jesse Luehrs [Sat, 16 Oct 2010 05:51:24 +0000 (00:51 -0500)]
lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm
lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm
lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm
lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm

index bc146ca..1a701cb 100644 (file)
@@ -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;
index ada0a97..2f5a9b4 100644 (file)
@@ -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;
index 843e65a..72e788e 100644 (file)
@@ -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;
index 4c3628b..e6c00bd 100644 (file)
@@ -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;