File Coverage

blib/lib/Ado/Sessions/Database.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	8	10	80.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	48	50	96.0

package Ado::Sessions::Database;
use Mojo::Base 'Ado::Sessions';
use Mojo::JSON;
use Mojo::Util qw(b64_decode b64_encode);
use Ado::Model::Sessions;

sub load {
    my ($self, $c) = @_;

    my $session = {};
    my $id = $self->session_id($c) || '';

    if ($id) {
        my $adosession = Ado::Model::Sessions->find($id);
        if ($adosession->data) {
            return
              unless $session = Mojo::JSON::j(b64_decode $adosession->sessiondata);
        }
    }

    return $self->prepare_load($c, $session);
}

sub store {
    my ($self, $c) = @_;

    my ($id, $session) = $self->prepare_store($c);
    return unless $id;
    my $value = b64_encode(Mojo::JSON::encode_json($session), '');
    my $adosession = Ado::Model::Sessions->find($id);
    if ($adosession->data) {
        $adosession->sessiondata($value)->update();
        return;
    }
    Ado::Model::Sessions->create(id => $id, tstamp => time(), sessiondata => $value);

    return;
}

1;

=pod

=encoding UTF-8

=head1 NAME

Ado::Sessions::Database - manage sessions stored in the database

=head1 DESCRIPTION

L manages sessions for
L. All data gets serialized with L and stored
C encoded in the database. A cookie or a request parameter can
be used to share the session id between the server and the user agents.

=head1 METHODS

=head2 load

Load session data from database.

=head2 store

Save session data in database.

=head1 SEE ALSO

L, L

=cut