File Coverage

blib/lib/Data/Focus/Applicative/Const/List.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	34	34	100.0

package Data::Focus::Applicative::Const::List;
use strict;
use warnings;
use parent qw(Data::Focus::Applicative::Const);

my $PURE = __PACKAGE__->new([]);

sub pure { $PURE }

sub build {
    my ($class, $builder, @f_parts) = @_;
    if(@f_parts == 0) {
        return $PURE;
    }elsif(@f_parts == 1) {
        return $f_parts[0];
    }else {
        return $class->new([map { @{$_->get_const} } @f_parts]);
    }
}

sub create_part_mapper {
    my ($class) = @_;
    return sub { $class->new([shift]) };
}


1;

__END__