File Coverage

blib/lib/Data/Focus/Lens/HashArray/All.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	12	12	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	61	61	100.0

package Data::Focus::Lens::HashArray::All;
use strict;
use warnings;
use parent qw(Data::Focus::Lens);
use Carp;

sub new {
    my ($class, %args) = @_;
    return bless {
        immutable => !!$args{immutable}
    }, $class;
}

sub _set_array {
    my ($self, $whole, @parts) = @_;
    return $whole if !@parts;
    if($self->{immutable}) {
        return \@parts;
    }else {
        @$whole = @parts;
        return $whole;
    }
}

sub _set_hash {
    my ($self, $whole, $keys, @parts) = @_;
    return $whole if !@parts;
    my $ret = $self->{immutable} ? {%$whole} : $whole;
    $ret->{$keys->[$_]} = $parts[$_] foreach 0 .. $#$keys;
    return $ret;
}

sub apply_lens {
    my ($self, $app_class, $part_mapper, $whole) = @_;
    my $type = ref($whole);
    if($type eq "ARRAY") {
        return $app_class->build(sub {
            $self->_set_array($whole, @_)
        }, map { $part_mapper->($_) } @$whole);
    }elsif($type eq "HASH") {
        my @keys = keys %$whole;
        return $app_class->build(sub {
            $self->_set_hash($whole, \@keys, @_)
        }, map { $part_mapper->($_) } @{$whole}{@keys});
    }else {
        return $app_class->pure($whole);
    }
}



1;
__END__