File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch	8	8	100.0
condition	9	9	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	61	61	100.0

package Data::Focus::Lens::Dynamic;
use strict;
use warnings;
use parent qw(Data::Focus::Lens);
use Scalar::Util qw(blessed);
use Carp;

sub new {
    my ($class, $param) = @_;
    return bless \$param, $class;
}

sub _associated_lens {
    my ($self, $target) = @_;
    if(blessed($target) && $target->can("Lens")) {
        my $assoc_lens = $target->Lens($$self);
        if(! eval { $assoc_lens->isa("Data::Focus::Lens") }) {
            croak "Lens method did not return a Data::Focus::Lens";
        }
        return $assoc_lens;
    }
    my $ref = ref($target);
    if(!defined($target) || $ref eq "HASH" || $ref eq "ARRAY") {
        require Data::Focus::Lens::HashArray::Index;
        return Data::Focus::Lens::HashArray::Index->new(index => $$self);
    }
    return undef;
}

sub apply_lens {
    my ($self, $applicative_class, $part_mapper, $target) = @_;
    my $assoc_lens = $self->_associated_lens($target);
    if(defined($assoc_lens)) {
        return $assoc_lens->apply_lens($applicative_class, $part_mapper, $target);
    }else {
        return $applicative_class->pure($target);
    }
}


1;
__END__