use strict;
use warnings;
-our $VERSION = '1.15';
+our $VERSION = '1.25';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
_minimum_arguments
_maximum_arguments
_inline_optimized_set_new_value
- _return_value
)
]
};
return "$slot_access -= defined \$_[0] ? \$_[0] : 1";
}
-sub _return_value {
- my ( $self, $slot_access ) = @_;
-
- return "return $slot_access;";
-}
-
no Moose::Role;
1;