File Coverage

blib/lib/Trickster/Session.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition	6	12	50.0
subroutine	9	9	100.0
pod	4	4	100.0
total	47	55	85.4

package Trickster::Session;

use strict;
use warnings;
use v5.14;

use JSON::PP qw(encode_json decode_json);
use Carp qw(croak);

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

    croak "cookie => Trickster::Cookie required" unless $opts{cookie};

    return bless {
        cookie     => $opts{cookie},
        name       => $opts{name}       || 'trick_session',
        max_age    => $opts{max_age},
        secure     => $opts{secure}     // 1,
        httponly   => $opts{httponly}   // 1,
        samesite   => $opts{samesite}   // 'Lax',
    }, $class;
}

sub get {
    my ($self, $req) = @_;

    my $raw = $self->{cookie}->get($req, $self->{name});
    return {} unless $raw;

    return eval { decode_json($raw) } || {};
}

sub set {
    my ($self, $res, $data) = @_;

    my $json = encode_json($data // {});

    $self->{cookie}->set(
        $res,
        $self->{name},
        $json,
        max_age  => $self->{max_age},
        secure   => $self->{secure},
        httponly => $self->{httponly},
        samesite => $self->{samesite},
    );
}

sub clear {
    my ($self, $res) = @_;

    $self->{cookie}->delete($res, $self->{name});
}

1;

__END__