1 package Moose::Meta::Method::Accessor::Native::String::chop;
8 with 'Moose::Meta::Method::Accessor::Native::Writer' => {
12 _inline_optimized_set_new_value
18 sub _maximum_arguments { 0 }
20 sub _potential_value {
22 my ($slot_access) = @_;
25 . 'my $val = ' . $slot_access . '; '
26 . '@return = chop $val; '
31 sub _inline_optimized_set_new_value {
33 my ($inv, $new, $slot_access) = @_;
35 return '@return = chop ' . $slot_access . ';';
40 my ($slot_access) = @_;