File Coverage

blib/lib/EO/Singleton.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package EO::Singleton;

use warnings;
use strict;
use EO;

our @ISA       = qw( EO );
our $VERSION = 0.96;
my $_singletons = {};

sub new {
  my $class = shift;
  $_singletons->{$class} ||= $class->SUPER::new(@_);
}

sub _reset_singleton {
  my $self = shift;
  $_singletons->{ ref($self) } = $self;
}

sub get {
  my $self = ref($_[0]) ? shift : shift->new;
  $self->SUPER::get( @_ );
}

sub set {
  my $self = ref($_[0]) ? shift : shift->new;
  $self->SUPER::set( @_ );
}

sub clone {
  my $self = shift;
  return $self;
}

1;

__END__