File Coverage

blib/lib/Data/Monad/Singleton.pm

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

package Data::Monad::Singleton;
use strict;
use warnings;
use parent qw/Data::Monad::Base::Monad/;
use Exporter qw/import/;

our @EXPORT = qw/singleton/;

sub singleton { __PACKAGE__->new }

my $instance = bless \(my $x = '*'), __PACKAGE__;
sub new { $instance }

sub unit { singleton }

sub flat_map { singleton }

1;

__END__