File Coverage

blib/lib/Dancer2/Session/CHI.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod			n/a
total	38	41	92.6

package Dancer2::Session::CHI;
# ABSTRACT: Dancer 2 session storage with CHI backend

use strict;
use warnings;

use Moo;
use CHI;
use Type::Tiny;
use Types::Standard qw/ Str ArrayRef InstanceOf HashRef/;

#
# Public attributes
#
has 'driver' => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

has 'driver_args' => (
    is       => 'ro',
    isa      => HashRef,
    required => 0,
);

#
# Private attributes
#
has _chi => (
    is      => 'lazy',
    isa     => InstanceOf ['CHI::Driver'],
    handles => {
        _destroy => 'remove',
    },
);

# Session methods
sub _retrieve {
    my ($self) = shift;

    return $self->_chi->get( @_ );
}

sub _flush {
    my ($self) = shift;

    return $self->_chi->set( @_ );
}

sub _build__chi {
    my ($self) = @_;

    return CHI->new(
        driver => $self->driver,
        %{ $self->driver_args },
    );
}

around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;
    my @args  = @_;

    my %chi_args = @args;
    delete $chi_args{ $_ } foreach qw( postponed_hooks log_cb session_dir driver );
    push @args, 'driver_args', \%chi_args;
    return $class->$orig( @args );
};

#
# Role composition
#
with 'Dancer2::Core::Role::SessionFactory';

sub _sessions { my $self = shift; return $self->_chi->get_keys; }

sub _change_id {
    my ( $self, $old_id, $new_id ) = @_;
    $self->_flush( $new_id, $self->_retrieve( $old_id ) );
    $self->_destroy( $old_id );
}

1;

__END__