File Coverage

blib/lib/Bot/Cobalt/Core/Role/Singleton.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	2	2	100.0
condition	3	6	50.0
subroutine	7	8	87.5
pod	3	4	75.0
total	38	44	86.3

package Bot::Cobalt::Core::Role::Singleton;
$Bot::Cobalt::Core::Role::Singleton::VERSION = '0.021001';
use Carp 'confess';
use strictures 2;

use Moo::Role;

no strict 'refs';

sub instance {
  my $class = $_[0];

  my $this_obj = \${$class.'::_singleton'};

  defined $$this_obj ? $$this_obj
    : ( $$this_obj = $class->new(@_[1 .. $#_]) )
}

sub has_instance {
  my $class = ref $_[0] || $_[0];
  !! ${$class.'::_singleton'};
}

sub clear_instance {
  my $class = ref $_[0] || $_[0];
  ${$class.'::_singleton'} = undef;
  1
}

sub is_instanced {
  confess "is_instanced is deprecated; use has_instance"
}

1;
__END__