Commit | Line | Data |
f7fd22b6 |
1 | package Moose::Meta::Method::Accessor::Native::Array::push; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | our $VERSION = '1.13'; |
7 | $VERSION = eval $VERSION; |
8 | our $AUTHORITY = 'cpan:STEVAN'; |
9 | |
10 | use base 'Moose::Meta::Method::Accessor::Native::Array::Writer'; |
11 | |
12 | sub _generate_method { |
13 | my $self = shift; |
14 | |
15 | my $inv = '$self'; |
16 | |
17 | my $slot_access = $self->_inline_get($inv); |
18 | |
f7fd22b6 |
19 | my $code = 'sub {'; |
20 | $code .= "\n" . $self->_inline_pre_body(@_); |
21 | |
22 | $code .= "\n" . 'my $self = shift;'; |
23 | |
24 | $code .= "\n" . $self->_inline_check_lazy($inv); |
25 | |
f5f08b5f |
26 | $code .= "\n" . $self->_inline_curried_arguments; |
f7fd22b6 |
27 | |
28 | $code |
29 | .= "\n" |
30 | . $self->_inline_throw_error( |
31 | q{"Cannot call push without any arguments"}) |
f5f08b5f |
32 | . " unless \@_;"; |
f7fd22b6 |
33 | |
34 | my $potential_new_val; |
35 | if ( $self->_constraint_must_be_checked ) { |
f5f08b5f |
36 | $code .= "\n" . "my \@new_val = ( \@{ $slot_access }, \@_ );"; |
f7fd22b6 |
37 | $potential_new_val = '\\@new_val'; |
38 | } |
39 | else { |
f5f08b5f |
40 | $potential_new_val = "[ \@{ $slot_access }, \@_ ];"; |
f7fd22b6 |
41 | } |
42 | |
43 | $code .= "\n" . $self->_inline_check_coercion($potential_new_val); |
44 | $code .= "\n" . $self->_inline_check_constraint($potential_new_val); |
45 | |
46 | $code .= "\n" |
f5f08b5f |
47 | . $self->_inline_get_old_value_for_trigger( $inv, '@_' ); |
f7fd22b6 |
48 | |
49 | $code .= "\n" . $self->_inline_store( $inv, $potential_new_val ); |
50 | |
51 | $code .= "\n" . $self->_inline_post_body(@_); |
f5f08b5f |
52 | $code .= "\n" . $self->_inline_trigger( $inv, '@_', '@old' ); |
f7fd22b6 |
53 | |
54 | $code .= "\n}"; |
55 | |
56 | return $code; |
57 | } |
58 | |
59 | 1; |