Beta Shell v2.0

File Manager

~ /usr/lib64/perl5/vendor_perl/Moose/Meta/Method/Accessor/Native/Array

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Writer.pm	599 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
accessor.pm	1.44 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
clear.pm	466 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
count.pm	360 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
delete.pm	955 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
elements.pm	356 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
first.pm	1023 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
first_index.pm	1.25 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
get.pm	561 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
grep.pm	994 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
insert.pm	1.18 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
is_empty.pm	364 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
join.pm	976 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
map.pm	991 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
natatime.pm	2 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
pop.pm	887 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
push.pm	644 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
reduce.pm	1.01 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
set.pm	1.26 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
shallow_clone.pm	417 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
shift.pm	886 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
shuffle.pm	395 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
sort.pm	1.12 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
sort_in_place.pm	1.11 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
splice.pm	1.84 KB	-rw-r--r--	2018-05-16 03:46:02	Edit Del
uniq.pm	394 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del
unshift.pm	650 B	-rw-r--r--	2018-05-16 03:46:02	Edit Del

Editing: splice.pm (1.84 KB)

package Moose::Meta::Method::Accessor::Native::Array::splice;
our $VERSION = '2.2011';

use strict;
use warnings;

use Moose::Role;

with 'Moose::Meta::Method::Accessor::Native::Array::Writer';

sub _minimum_arguments { 1 }

sub _adds_members { 1 }

sub _inline_process_arguments {
    return (
        'my $idx = shift;',
        'my $len = @_ ? shift : undef;',
    );
}

sub _inline_check_arguments {
    my $self = shift;

    return (
        $self->_inline_check_var_is_valid_index('$idx'),
        'if (defined($len) && $len !~ /^-?\d+$/) {',
            $self->_inline_throw_exception( InvalidArgumentToMethod =>
                                            'argument                => $len,'.
                                            'method_name             => "splice",'.
                                            'type_of_argument        => "integer",'.
                                            'type                    => "Int",'.
                                            'argument_noun           => "length argument"',
            ) . ';',
        '}',
    );
}

sub _potential_value {
    my $self = shift;
    my ($slot_access) = @_;

    return '(do { '
             . 'my @potential = @{ (' . $slot_access . ') }; '
             . '@return = defined $len '
                 . '? (splice @potential, $idx, $len, @_) '
                 . ': (splice @potential, $idx); '
                 . '\@potential;'
         . '})';
}

sub _inline_optimized_set_new_value {
    my $self = shift;
    my ($inv, $new, $slot_access) = @_;

    return (
        '@return = defined $len',
            '? (splice @{ (' . $slot_access . ') }, $idx, $len, @_)',
            ': (splice @{ (' . $slot_access . ') }, $idx);',
    );
}

sub _return_value {
    my $self = shift;
    my ($slot_access) = @_;

    return 'wantarray ? @return : $return[-1]';
}

no Moose::Role;

1;