File Coverage

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

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	6	6	100.0
total	31	35	88.5

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

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

sub pure {
    my ($class) = @_; ## ignore the datum
    return $class->new($class->mempty);
}

sub build {
    my ($class, $builder, @f_parts) = @_;
    return $class->new($class->mconcat(map { $_->get_const } @f_parts));
}

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

sub mempty { die "not implemented" }
sub mconcat { die "not implemented" }

1;
__END__