File Coverage

blib/lib/Data/Focus/LensMaker.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	40	41	97.5

package Data::Focus::LensMaker;
use strict;
use warnings;
use Exporter qw(import);
use Carp;

our @EXPORT_OK = qw(make_lens_from_accessors);

sub make_lens_from_accessors {
    my ($getter, $setter) = @_;
    my $calling_package = caller;
    confess "Top level call. Something is wrong." if !defined($calling_package);
    {
        no strict "refs";
        *{"${calling_package}::apply_lens"} = _create_apply_lens_from_accessors($getter, $setter);
    }
}

sub _create_apply_lens_from_accessors {
    my ($getter, $setter) = @_;
    return sub {
        my ($self, $applicative_class, $part_mapper, $whole) = @_;
        my @parts = $self->$getter($whole);
        return $applicative_class->build(sub {
            my $ret = $self->$setter($whole, @_);
            return $ret;
        }, map { $part_mapper->($_) } @parts);
    };
}


1;
__END__