File Coverage

blib/lib/Data/Monad/Base/MonadZero.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	2	2	100.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	21	24	87.5

package Data::Monad::Base::MonadZero;
use strict;
use warnings;
use parent qw/Data::Monad::Base::Monad/;

sub zero {
    my $class = shift;
    die "You should override this method.";
}

sub filter {
    my ($self, $predicate) = @_;
    $self->flat_map(sub {
        $predicate->(@_) ? (ref $self)->unit(@_) : (ref $self)->zero;
    });
}

1;


__END__