File Coverage

blib/lib/Plack/Session/Store/Catmandu.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch			n/a
condition	0	7	0.0
subroutine	3	7	42.8
pod	4	4	100.0
total	16	42	38.1

package Plack::Session::Store::Catmandu;

=head1 NAME

Plack::Session::Store::Catmandu - Plack session store backed by a Catmandu::Store

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';

=head1 SYNOPSIS

    use Plack::Builder;
    use Plack::Middleware::Session;
    use Plack::Session::Store::Catmandu;

    my $app = sub {
        return [ 200, [ 'Content-Type' => 'text/plain' ], [ 'Hello' ] ];
    };

    builder {
        enable 'Session', store => Plack::Session::Store::Catmandu->new(
            store => 'MongoDB',
            bag => 'sessions',
        );
        $app;
    };

=cut

use Catmandu::Sane;
use parent qw(Plack::Session::Store);
use Catmandu;

sub new {
    my ($class, %opts) = @_;
    my $store = $opts{store} || Catmandu->default_store;
    my $bag = $opts{bag} || 'session';
    bless {
        bag => Catmandu->store($store)->bag($bag),
    }, $class;
}

sub fetch {
    my ($self, $id) = @_;
    my $obj = $self->{bag}->get($id) || return;
    delete $obj->{_id};
    $obj;
}

sub store {
    my ($self, $id, $obj) = @_;
    $obj->{_id} = $id;
    $self->{bag}->add($obj);
    delete $obj->{_id};
    $obj;
}

sub remove {
    my ($self, $id) = @_;
    $self->{bag}->delete($id);
}

1;

=head1 SEE ALSO

L, L

=head1 AUTHOR

Nicolas Steenlant, C<<  >>

=head1 LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.