File Coverage

blib/lib/MooX/Singleton.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition	2	6	33.3
subroutine	10	10	100.0
pod	1	1	100.0
total	45	49	91.8

package MooX::Singleton;
BEGIN {
  $MooX::Singleton::AUTHORITY = 'cpan:AJGB';
}
{
  $MooX::Singleton::VERSION = '1.20';
}
# ABSTRACT: turn your Moo class into singleton

use strict;
use warnings;
use Role::Tiny;


sub instance {
    my $class = shift;

    no strict 'refs';
    my $instance = \${"$class\::_instance"};
    return defined $$instance ? $$instance
        : ( $$instance = $class->new(@_) );
}

sub _has_instance {
    my $class = ref $_[0] || $_[0];

    no strict 'refs';
    return ${"$class\::_instance"};
}

sub _clear_instance {
    my $class = ref $_[0] || $_[0];

    no strict 'refs';
    undef ${"$class\::_instance"};

    return $class;
}

1;

__END__