view release on metacpan or  search on metacpan

lib/HTTP/Session/Store/KyotoTycoon.pm  view on Meta::CPAN

    } 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" }