File Coverage

blib/lib/Scope/Session.pm

Criterion	Covered	Total	%
statement	50	61	81.9
branch	11	18	61.1
condition			n/a
subroutine	15	21	71.4
pod	7	7	100.0
total	83	107	77.5

package Scope::Session;
use strict;
use warnings;
use Error qw/:try/;
use Carp qw/croak/;
{
    package Scope::Session::Notes;
    our $DATA_STORE = {};
    sub get_instance { bless {} => shift; }
    sub set { $DATA_STORE->{ $_[1] } = $_[2];}
    sub get { $DATA_STORE->{ $_[1] };}
    sub exists { exists $DATA_STORE->{ $_[1] };}
}
our $VERSION = q{0.02};
our $_INSTANCE      = undef;
our $_IS_IN_SESSION = 0;

sub get_instance {
    my ($class)      = @_;
    unless( $_INSTANCE ){
        $_INSTANCE = $class->_new_instance;
    }
    return $_INSTANCE;
}

sub _new_instance{
    my ($class) = @_;
    return bless {},$class;
}
sub _on_error {
    my ( $self, $error ) = @_;
    my @handlers = map { $_->{handler} }
        grep { $error->isa( $_->{target} ) } @{ $self->_handlers };

    if ( scalar @handlers > 0 ) {
        $_->($error) for @handlers;
    }
    else {
        croak $error;
    }
}

sub _handlers {
    my $self = shift;
    $self->{_handlers} = [] unless $self->{_handlers};
    return $self->{_handlers};
}

sub add_error_handler{
    my ($self,$target,$handler) = @_;
    push @{ $self->_handlers },{
        target  => '' . $target,
        handler => $handler,
    };
}

sub is_started {
    return ($_IS_IN_SESSION) ? 1 : 0;
}

sub notes {
    my $class  = shift;
    my $length = scalar(@_);
    if ( $length == 0 ) {
        return Scope::Session::Notes->get_instance;
    }
    elsif ( $length == 1 ) {
        return Scope::Session::Notes->get(shift);
    }
    else {
        return Scope::Session::Notes->set(@_);
    }
}

sub _option {
    my $self = (ref $_[0]) ? shift : shift->get_instance;
    $self->{_option} = {} unless $self->{_option};
    return $self->{_option};
}

sub set_option {
    my ( $self, $key, $val ) = @_;
    $self->_option->{$key} = $val;
}

sub get_option {
    my ( $self, $key ) = @_;
    return $self->_option->{$key};
}


sub start(&){
    my $code  = shift;
    my $class = __PACKAGE__;

    croak(q{scope session is alreay started})
        if( $_IS_IN_SESSION );

    local $Scope::Session::Notes::DATA_STORE = {};
    local $_INSTANCE         = undef;
    local $_IS_IN_SESSION    = 1;
    my $instance = $class->get_instance;
    try{
        $code->($instance);
    }
    catch Error::Simple with{
        my $error = shift;
        $instance->_on_error( $error );
    };

}

1;

__END__