e724ab032c6df8913cc0edaa5e173e6ad762ff5b
[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.14';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
9
10 use base 'Moose::Meta::Method::Accessor::Native::Writer';
11
12 sub _minimum_arguments { 0 }
13 sub _maximum_arguments { 0 }
14
15 sub _potential_value {
16     my ( $self, $slot_access ) = @_;
17
18     return "( do { my \$val = $slot_access; chop \$val; \$val } )";
19 }
20
21 sub _inline_optimized_set_new_value {
22     my ( $self, $inv, $new, $slot_access ) = @_;
23
24     return "chop $slot_access";
25 }
26
27 1;