File Coverage

blib/lib/Plack/Session/Store/Cache.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition	3	9	33.3
subroutine	9	9	100.0
pod	4	4	100.0
total	41	48	85.4

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

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

use Scalar::Util qw[ blessed ];

use parent 'Plack::Session::Store';

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

sub new {
    my ($class, %params) = @_;

    die('cache require get, set and remove method.')
        unless blessed $params{cache}
            && $params{cache}->can('get')
            && $params{cache}->can('set')
            && $params{cache}->can('remove');

    bless { %params } => $class;
}

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

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

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

1;

__END__