File Coverage

blib/lib/Plack/Session/Store.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	4	4	100.0
total	30	31	96.7

package Plack::Session::Store;
use strict;
use warnings;

our $VERSION   = '0.36';
our $AUTHORITY = 'cpan:STEVAN';

use Plack::Util::Accessor qw[ _stash ];

sub new {
    my ($class, %params) = @_;
    $params{'_stash'} ||= +{};
    bless { %params } => $class;
}

sub fetch {
    my ($self, $session_id) = @_;
    $self->_stash->{ $session_id };
}

sub store {
    my ($self, $session_id, $session) = @_;
    $self->_stash->{ $session_id } = $session;
}

sub remove {
    my ($self, $session_id) = @_;
    delete $self->_stash->{ $session_id }
}

1;

__END__