File Coverage

blib/lib/HTTP/Session/Store/KyotoTycoon.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	4	0.0
condition	0	6	0.0
subroutine	5	11	45.4
pod	4	6	66.6
total	24	59	40.6

package HTTP::Session::Store::KyotoTycoon;
use strict;
use warnings;
use 5.00800;
our $VERSION = '0.02';
use Cache::KyotoTycoon;
use Storable ();

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    my $kt = Cache::KyotoTycoon->new(
        host => $args{host} || '127.0.0.1',
        port => $args{port} || 1978,
        db   => $args{db}   || 0,
    );
    bless {kt => $kt, expires => $args{expires}}, $class;
}

sub select {
    my ( $self, $session_id ) = @_;
    my $data = $self->{kt}->get($session_id);
    if (defined $data) {
        return Storable::thaw($data);
    } else {
        return undef;
    }
}

sub insert {
    my ($self, $session_id, $data) = @_;
    $self->{kt}->set( $session_id, Storable::nfreeze($data), $self->{expires} );
}

sub update {
    my ($self, $session_id, $data) = @_;
    $self->{kt}->replace( $session_id, Storable::nfreeze($data), $self->{expires} );
}

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

sub cleanup { Carp::croak "This storage doesn't support cleanup" }


1;
__END__