File Coverage

blib/lib/Ark/Plugin/Session/Store/Memory.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Ark::Plugin::Session::Store::Memory;
use strict;
use warnings;
use Ark::Plugin 'Session';

my %session;

around 'get_session_data' => sub {
    my $next = shift;
    my ($self, $key) = @_;

    if (my $session = $session{$key}) {
        return $session;
    }

    $next->(@_);
};

around 'set_session_data' => sub {
    my $next = shift;
    my ($self, $key, $value) = @_;

    $session{$key} = $value;

    $next->(@_);
};

around 'remove_session_data' => sub {
    my $next = shift;
    my ($self, $key) = @_;

    delete $session{$key};

    $next->(@_);
};

1;