Sha256: 6e1169459a97e477458a5928e8be80266f468f8d681d1f9679067e37ade7afd0
Contents?: true
Size: 1.18 KB
Versions: 14
Compression:
Stored size: 1.18 KB
Contents
package Moose::Meta::Method::Accessor::Native::Array::insert; our $VERSION = '2.2206'; use strict; use warnings; use Moose::Role; with 'Moose::Meta::Method::Accessor::Native::Array::Writer'; sub _minimum_arguments { 2 } sub _maximum_arguments { 2 } sub _adds_members { 1 } sub _potential_value { my $self = shift; my ($slot_access) = @_; return '(do { ' . 'my @potential = @{ (' . $slot_access . ') }; ' . 'splice @potential, $_[0], 0, $_[1]; ' . '\@potential; ' . '})'; } # We need to override this because while @_ can be written to, we cannot write # directly to $_[1]. sub _inline_coerce_new_values { my $self = shift; return unless $self->associated_attribute->should_coerce; return unless $self->_tc_member_type_can_coerce; return '@_ = ($_[0], $member_coercion->($_[1]));'; }; sub _new_members { '$_[1]' } sub _inline_optimized_set_new_value { my $self = shift; my ($inv, $new, $slot_access) = @_; return 'splice @{ (' . $slot_access . ') }, $_[0], 0, $_[1];'; } sub _return_value { my $self = shift; my ($slot_access) = @_; return $slot_access . '->[ $_[0] ]'; } no Moose::Role; 1;
Version data entries
14 entries across 7 versions & 1 rubygems