File Coverage

blib/lib/Mojolicious/Sessions/ThreeS/Storage/CHI.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	4	4	100.0
condition			n/a
subroutine	4	5	80.0
pod	3	3	100.0
total	28	31	90.3

package Mojolicious::Sessions::ThreeS::Storage::CHI;
$Mojolicious::Sessions::ThreeS::Storage::CHI::VERSION = '0.003';
use Mojo::Base qw/Mojolicious::Sessions::ThreeS::Storage/;

use JSON;

=head1 NAME

Mojolicious::Sessions::ThreeS::Storage::CHI - An adapter to store sessions in a CHI instance.

=head1 SYNOPSIS

  my $storage = Mojolicious::Sessions::ThreeS::Storage::CHI->new({ chi => .. a CHI instance .. });

  # Use $storage in the Mojolicious::Sessions::ThreeS instance (or through the plugin):

  $app->sessions( Mojolicious::Sessions::ThreeS->new({ storage => $storage , state => ... } );

Note that you WILL have to depend on CHI and on JSON in your application to use this storage.

This distribution does not add these to the runtime dependencies to avoid clutter.

=head1 ATTRIBUTES

=head2 default_expiration

Default expiration length (in seconds) in case you dont define a default session expiration
at higher level. This is required to avoid CHI cache overflowing.

Defaults to 43200 (12 hours).

=cut

has 'default_expiration' => 43200;
has 'chi';
has 'json' => sub{
    my $json = JSON->new();
    $json->ascii( 1 );
    # Encode stuff in ascii so there is no risk
    # of bad decoding.
    return $json;
};

=head1 METHODS

=head2 get_session

See L

=cut

sub get_session{
    my ($self, $session_id) = @_;
    my $value =  $self->chi->get( $session_id );
    unless( $value ){ return; }
    return $self->json()->decode( $value );
}

=head2 store_session

See L

=cut

sub store_session {
    my ( $self, $session_id, $session ) = @_;
    my $expires = $session->{expires};
    my $value   = $self->json()->encode($session);
    unless( defined $expires ){
        $expires = time() + $self->default_expiration();
    }
    $self->chi->set(
        $session_id,
        $value,
        { expires_at => $expires, expires_variance => 0.15 }
    );
}

=head2 remove_session_id

See L

=cut

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

1;