Add explicit return values for (almost) all native delegation mutating methods
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / String / chop.pm
1 package Moose::Meta::Method::Accessor::Native::String::chop;
2
3 use strict;
4 use warnings;
5
6 our $VERSION = '1.15';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
9
10 use Moose::Role;
11
12 with 'Moose::Meta::Method::Accessor::Native::Writer' => {
13     -excludes => [
14         qw(
15             _maximum_arguments
16             _inline_optimized_set_new_value
17             _return_value
18             )
19     ]
20 };
21
22 sub _maximum_arguments { 0 }
23
24 sub _potential_value {
25     my ( $self, $slot_access ) = @_;
26
27     return "( do { my \$val = $slot_access; \@return = chop \$val; \$val } )";
28 }
29
30 sub _inline_optimized_set_new_value {
31     my ( $self, $inv, $new, $slot_access ) = @_;
32
33     return "\@return = chop $slot_access";
34 }
35
36 sub _return_value {
37     my ( $self, $slot_access ) = @_;
38
39     return '$return[0]';
40 }
41
42 no Moose::Role;
43
44 1;