File Coverage

blib/lib/Data/Focus/Applicative/Identity.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	31	31	100.0

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

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

*pure = *new;

sub build {
    my ($class, $builder, @f_parts) = @_;
    return $class->new($builder->(map { $_->run_identity } @f_parts));
    ## should we type-check @f_parts?
}

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

sub run_identity {
    return ${$_[0]};
}

1;
__END__