All native array methods are being inlined.
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Array / insert.pm
CommitLineData
a7821be5 1package Moose::Meta::Method::Accessor::Native::Array::insert;
2
3use strict;
4use warnings;
5
6our $VERSION = '1.13';
7$VERSION = eval $VERSION;
8our $AUTHORITY = 'cpan:STEVAN';
9
10use base 'Moose::Meta::Method::Accessor::Native::Array::Writer';
11
12sub _minimum_arguments { 2 }
13
14sub _maximum_arguments { 2 }
15
16sub _adds_members { 1 }
17
18sub _potential_value {
19 my ( $self, $slot_access ) = @_;
20
21 return
22 "( do { my \@potential = \@{ $slot_access }; splice \@potential, \$_[0], 0, \$_[1]; \@potential } )";
23}
24
25sub _new_values { '$_[1]' }
26
271;