File Coverage

blib/lib/Role/Singleton.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition	3	6	50.0
subroutine	4	4	100.0
pod	2	2	100.0
total	20	23	86.9

package Role::Singleton;

## no critic (RequireUseStrict) - Role::Tiny does strict
use Role::Tiny;

$Role::Singleton::VERSION = '0.2';

sub instance { goto &singleton; }

sub singleton {
    my ( $self, @args ) = @_;
    my $class = ref($self) || $self;

    no strict 'refs';    ## no critic
    return ${ $class . '::_singleton' } ||= $self->new(@args);
}

# need this or YAGNI ?
#
# sub clear_singleton {
#     my ($self) = @_;
#     my $class = ref($self) || $self;
#
#     no strict 'refs';
#     undef ${ $class . '::_singleton' };
#
#     return 1;
# }

1;

__END__