5d0310cd36f3eded9bf6eab0e352c3fa41bb4d00
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / String / append.pm
1 package Moose::Meta::Method::Accessor::Native::String::append;
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             _minimum_arguments
16             _maximum_arguments
17             _inline_optimized_set_new_value
18             )
19     ]
20     };
21
22 sub _minimum_arguments { 1 }
23
24 sub _maximum_arguments { 1 }
25
26 sub _potential_value {
27     my ( $self, $slot_access ) = @_;
28
29     return "( $slot_access . \$_[0] )";
30 }
31
32 sub _inline_optimized_set_new_value {
33     my ( $self, $inv, $new, $slot_access ) = @_;
34
35     return "$slot_access .= \$_[0]";
36 }
37
38 no Moose::Role;
39
40 1;