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 $value_name
  20         = $self->_value_needs_copy
  21         ? '@val'
  22         : '@_';
  23
  24     my $code = 'sub {';
  25     $code .= "\n" . $self->_inline_pre_body(@_);
  26
  27     $code .= "\n" . 'my $self = shift;';
  28
  29     $code .= "\n" . $self->_inline_check_lazy($inv);
  30
  31     $code .= "\n" . $self->_inline_copy_value;
  32
  33     $code
  34         .= "\n"
  35         . $self->_inline_throw_error(
  36         q{"Cannot call push without any arguments"})
  37         . " unless $value_name;";
  38
  39     my $potential_new_val;
  40     if ( $self->_constraint_must_be_checked ) {
  41         $code .= "\n" . "my \@new_val = ( \@{ $slot_access }, $value_name );";
  42         $potential_new_val = '\\@new_val';
  43     }
  44     else {
  45         $potential_new_val = "[ \@{ $slot_access }, $value_name ];";
  46     }
  47
  48     $code .= "\n" . $self->_inline_check_coercion($potential_new_val);
  49     $code .= "\n" . $self->_inline_check_constraint($potential_new_val);
  50
  51     $code .= "\n"
  52         . $self->_inline_get_old_value_for_trigger( $inv, $value_name );
  53
  54     $code .= "\n" . $self->_inline_store( $inv, $potential_new_val );
  55
  56     $code .= "\n" . $self->_inline_post_body(@_);
  57     $code .= "\n" . $self->_inline_trigger( $inv, $value_name, '@old' );
  58
  59     $code .= "\n}";
  60
  61     return $code;
  62 }
  63
  64 1;