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

   1 package Moose::Meta::Method::Accessor::Native::Array::splice;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '1.19';
   7 $VERSION = eval $VERSION;
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 use Moose::Role;
  11
  12 with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
  13     -excludes => [
  14         qw(
  15             _minimum_arguments
  16             _inline_process_arguments
  17             _inline_check_arguments
  18             _inline_optimized_set_new_value
  19             _return_value
  20             )
  21     ]
  22 };
  23
  24 sub _minimum_arguments { 1 }
  25
  26 sub _adds_members { 1 }
  27
  28 sub _inline_process_arguments {
  29     return 'my $idx = shift;' . "\n" . 'my $len = @_ ? shift : undef;';
  30 }
  31
  32 sub _inline_check_arguments {
  33     my $self = shift;
  34
  35     return
  36           $self->_inline_check_var_is_valid_index('$idx') . "\n"
  37         . $self->_inline_throw_error(q{'The length argument passed to splice must be an integer'})
  38         . ' if defined $len && $len !~ /^-?\\d+$/;';
  39 }
  40
  41 sub _potential_value {
  42     my ( $self, $slot_access ) = @_;
  43
  44     return "( do { my \@potential = \@{ ($slot_access) };"
  45         . '@return = defined $len ? ( splice @potential, $idx, $len, @_ ) : ( splice @potential, $idx ); \\@potential } )';
  46 }
  47
  48 sub _inline_optimized_set_new_value {
  49     my ( $self, $inv, $new, $slot_access ) = @_;
  50
  51     return "\@return = defined \$len ? ( splice \@{ ($slot_access) }, \$idx, \$len, \@_ ) : ( splice \@{ ($slot_access) }, \$idx )";
  52 }
  53
  54 sub _return_value {
  55     my ($self, $slot_access) = @_;
  56
  57     return 'return wantarray ? @return : $return[-1]';
  58 }
  59
  60 no Moose::Role;
  61
  62 1;