File Coverage

blib/lib/Data/Monad/Identity.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	30	30	100.0

package Data::Monad::Identity;
use strict;
use base;
use parent qw/Data::Monad::Base::Monad/;

sub new {
    my $class = shift;
    bless [@_], $class;
}

sub unit {
    my $class = shift;
    $class->new(@_);
}

sub flat_map {
    my ($m, $f) = @_;
    $f->($m->value);
}

sub value { wantarray ? @{$_[0]} : $_[0][0] }

1;

__END__