File Coverage

blib/lib/Data/Focus/Lens/Composite.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	34	34	100.0

package Data::Focus::Lens::Composite;
use strict;
use warnings;
use parent qw(Data::Focus::Lens);

sub new {
    my ($class, @lenses) = @_;
    require Data::Focus;
    @lenses = map { Data::Focus->coerce_to_lens($_) } @lenses;
    return bless \@lenses, $class;
}

sub apply_lens {
    my ($self, $applicative_class, $part_mapper, $whole) = @_;
    my $top_lens = $self->[0];
    if(!defined($top_lens)) {
        return $part_mapper->($whole);
    }
    foreach my $lens (reverse @{$self}[1 .. $#$self]) {
        my $cur_part_mapper = $part_mapper;
        $part_mapper = sub { $lens->apply_lens($applicative_class, $cur_part_mapper, shift) };
    }
    return $top_lens->apply_lens($applicative_class, $part_mapper, $whole);
}


1;
__END__