File Coverage

blib/lib/CGI/Session/Driver/chi.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package CGI::Session::Driver::chi;
=head1 NAME

CGI::Session::Driver::chi

=cut

=head1 SYNOPSIS

$s = CGI::Session->new(
    "driver:chi",
    $sid, {
        driver => 'File',
        root_dir => '/path/to/root'
    });

$s = CGI::Session->new(
    "driver:chi",
    $sid, {
        chi_class => 'My::CHI',
        namespace => 'cgi',
    });



=head1 DESCRIPTION

This driver allows L to use L as a session store

=cut

=head2 DRIVER ARGUMENTS

It accept a hash ref with the same arguements to would pass to L

An additional arguement chi_class

=cut

use strict;
use warnings;

use strict;
use CHI;
use base qw( CGI::Session::Driver CGI::Session::ErrorHandler );

our $VERSION = '1.0.3';

sub init {
    my ($self) = @_;
    my %args = %$self;
    my $chi_class = delete $args{chi_class} || "CHI";
    my $chi = $chi_class->new(%args);
    $self->{CHI} = $chi;
    return 1;
}

sub store {
    my ($self, $sid, $datastr) = @_;
    $self->{CHI}->set($sid, $datastr);
    return 1;
}

sub retrieve {
    my ($self, $sid) = @_;
    my $value = $self->{CHI}->get($sid);
    return 0 unless defined $value;
    return $value;
}

sub remove {
    my ($self, $sid) = @_;
    $self->{CHI}->remove($sid);
    return 1;
}

sub traverse {
    my ($self, $coderef) = @_;
    foreach my $key ($self->{CHI}->get_keys) {
        $coderef->( $key )
    }
    return 1;
}

=head1 AUTHOR

James Rouzier.

=head1 COPYRIGHT

Copyright (C) 2013 James Rouzier

=head1 LICENSE

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
USA.

=cut

1;