File Coverage

blib/lib/Scope/Session/Singleton.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	1	1	100.0
total	17	34	50.0

package Scope::Session::Singleton;
use strict;
use warnings;


our $VERSION = '0.01';
use Scope::Session;

use constant FORMAT_OF_POOL_KEY => q|scope-session-singleton:%s|;

sub instance {
    my $class    = shift;
    my $instance = $class->_get_instance;
    unless ( defined $instance ) {
        $instance = $class->_new_instance(@_);
        $class->_set_instance($instance);
    }
    return $instance;
}

sub _new_instance {
    bless {}, shift;
}

sub _get_instance {
    my $class = shift;
    Scope::Session->notes->get( sprintf( $class->FORMAT_OF_POOL_KEY, $class ) );
}

sub _set_instance {
    my ( $class, $instance ) = @_;
    Scope::Session->notes->set(
        sprintf( $class->FORMAT_OF_POOL_KEY, $class ) => $instance );
}

1;
__END__