File Coverage

blib/lib/STIX/Common/List.pm

Criterion	Covered	Total	%
statement	41	53	77.3
branch	2	2	100.0
condition	2	2	100.0
subroutine	18	22	81.8
pod	17	17	100.0
total	80	96	83.3

package STIX::Common::List;

use 5.016000;
use strict;
use warnings;
use utf8;

use overload '@{}' => \&to_array, fallback => 1;

sub new {
    my $collection = CORE::shift;
    bless({collections => [@_]}, $collection);
}

sub each {

    my ($self, $callback) = @_;

    return @{$self} unless $callback;

    my $idx = 0;
    $_->$callback($idx++) for @{$self};

    return $self;

}

sub grep {
    my ($self, $callback) = @_;
    return $self->new(CORE::grep { $_->$callback(@_) } @{$self});
}

sub map {
    my ($self, $callback) = @_;
    return $self->new(CORE::map { $_->$callback(@_) } @{$self});
}

sub size { CORE::scalar @{$_[0]->{collections}} }

sub get { $_[0]->{collections}->[$_[1]] }

sub set { $_[0]->{collections}->[$_[1]] = $_[2] }

sub clear { @{$_[0]->{collections}} = () }

sub pop { CORE::pop @{$_[0]->{collections}} }

sub push { CORE::push @{$_[0]->{collections}}, @_[1 .. $#_] }

sub shift { CORE::shift @{$_[0]->{collections}} }

sub unshift { CORE::unshift @{$_[0]->{collections}}, @_[1 .. $#_] }

sub join { CORE::join($_[1] // '', @{$_[0]}) }

sub first { $_[0]->{collections}[0] }

sub last { $_[0]->{collections}[-1] }

sub to_array { [@{$_[0]->{collections}}] }

sub TO_JSON { [@{$_[0]->{collections}}] }

1;

__END__