view release on metacpan or  search on metacpan

lib/Array/Util/MultiTarget.pm  view on Meta::CPAN

our @EXPORT_OK = qw(
                       mtpop
                       mtpush
                       mtsplice
                       mtremovestr
                       mtremoveallstr
                       mtremovenum
                       mtremoveallnum
               );

sub mtpop($) {
    my $arys = shift;

    my @res;
    for my $ary (@$arys) { push @res, pop @$ary }
    @res;
}

sub mtpush($@) {
    my $arys = shift;

    for my $ary (@$arys) { push @$ary, @_ }
}

sub mtsplice($$;$@) {
    my $arys = shift;
    my $offset = shift;
    my $len; $len = shift if @_;

    my @res;
    for my $ary (@$arys) {
        if (defined $len) {
            push @res, [splice @$ary, $offset, $len, @_];
        } else {
            push @res, [splice @$ary, $offset];