File Coverage

blib/lib/DBIx/Mint/Singleton.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	21	27	77.7

package DBIx::Mint::Singleton;

use Carp;
use Moo;
with 'MooX::Singleton';

has pool => (is => 'rw', default => sub { {} } );

sub add_instance {
    my ($self, $mint) = @_;
    if (exists $self->pool->{$mint->name}) {
        $mint = $self->pool->{$mint->name};
    }
    else {
        $self->pool->{$mint->name} = $mint;
    }
    return $mint;
}

sub get_instance {
    my ($self, $name) = @_;
    return exists $self->pool->{$name} ?
        $self->pool->{$name} : undef;
}

sub exists {
    my ($self, $name) =  @_;
    return exists $self->pool->{$name};
}

1;