lib/Moose/Meta/Method/Accessor/Native/Array/push.pm

   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
  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
  26     $code .= "\n" . $self->_inline_curried_arguments;
  27
  28     $code
  29         .= "\n"
  30         . $self->_inline_throw_error(
  31         q{"Cannot call push without any arguments"})
  32         . " unless \@_;";
  33
  34     my $potential_new_val;
  35     if ( $self->_constraint_must_be_checked ) {
  36         $code .= "\n" . "my \@new_val = ( \@{ $slot_access }, \@_ );";
  37         $potential_new_val = '\\@new_val';
  38     }
  39     else {
  40         $potential_new_val = "[ \@{ $slot_access }, \@_ ];";
  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"
  47         . $self->_inline_get_old_value_for_trigger( $inv, '@_' );
  48
  49     $code .= "\n" . $self->_inline_store( $inv, $potential_new_val );
  50
  51     $code .= "\n" . $self->_inline_post_body(@_);
  52     $code .= "\n" . $self->_inline_trigger( $inv, '@_', '@old' );
  53
  54     $code .= "\n}";
  55
  56     return $code;
  57 }
  58
  59 1;