File Coverage

blib/lib/Bubblegum/Object/Role/List.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	4	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	2	0.0
total	16	43	37.2

package Bubblegum::Object::Role::List;

use 5.10.0;
use namespace::autoclean;

use Bubblegum::Role 'requires', 'with';
use Bubblegum::Constraints -isas, -types;

with 'Bubblegum::Object::Role::Value';

our $VERSION = '0.45'; # VERSION

requires 'defined';
requires 'grep';
requires 'head';
requires 'join';
requires 'length';
requires 'map';
requires 'reverse';
requires 'sort';
requires 'tail';

sub reduce {
    my $self = CORE::shift;
    my $code = CORE::shift;

    $code = $code->codify if isa_string $code;
    type_coderef $code;

    my $a    = [0 .. $#{$self}];
    my $acc  = $a->head;
    $a->tail->map(sub { $acc = $code->($acc, $_, @_) });

    return $acc;
}

sub zip {
    my $self  = CORE::shift;

    my $other = type_arrayref CORE::shift;
    my $this  = $self->length < $other->length ? $other : $self;
    my $a     = [0 .. $#{$this}];

    return $this->keys->map(sub { [$self->get($_), $other->get($_)] });
}

1;