File Coverage

blib/lib/Data/Focus/Applicative/Const/First.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	32	32	100.0

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

sub mempty { undef }
sub mconcat {
    my $class = shift;
    my $datum = $class->mempty;
    while(@_) {
        $datum = shift;
        return $datum if defined $datum;
    }
    return $datum;
}

sub create_part_mapper {
    my ($class) = @_;
    return sub { my ($datum) = @_; $class->new(\$datum) };
}

1;
__END__