HTTP-Session

 view release on metacpan or  search on metacpan

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

sub select {
    my ( $self, $session_id ) = @_;
    my $data = $self->chi->get($session_id);
}

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

sub update {
    my ($self, $session_id, $data) = @_;
    $self->chi->set( $session_id, $data, $self->expires );
}

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

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

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

sub select {
    my ( $self, $key ) = @_;
    Storable::thaw $self->dbm->{$key};
}

sub insert {
    my ( $self, $key, $value ) = @_;
    $self->dbm->{$key} = Storable::freeze $value;
}
sub update { shift->insert(@_) }

sub delete {
    my ( $self, $key ) = @_;
    delete $self->dbm->{$key};
}

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

1;
__END__

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

        return $value;
    }
    undef;
}

sub insert {
    my ($self, $key, $value) = @_;
    Storable::nstore $value, $self->_to_path($key);
}

sub update {
    shift->insert(@_);
}

sub delete {
    my ($self, $key) = @_;
    unlink $self->_to_path($key);
}

sub _to_path {
    my ($self, $key) = @_;

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

sub select {
    my ( $self, $session_id ) = @_;
    my $data = $self->memd->get(_filter_sid $session_id);
}

sub insert {
    my ($self, $session_id, $data) = @_;
    $self->memd->set( _filter_sid($session_id), $data, $self->expires );
}

sub update {
    my ($self, $session_id, $data) = @_;
    $self->memd->replace( _filter_sid($session_id), $data, $self->expires );
}

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

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

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

package HTTP::Session::Store::Null;
use strict;
use warnings;

sub new { bless {}, shift }

sub select { }
sub insert { }
sub update { }
sub delete { }
sub cleanup { Carp::croak "This storage doesn't support cleanup" }

1;
__END__

=head1 NAME

HTTP::Session::Store::Null - dummy module for session store

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

    Carp::croak "missing session_id" unless $session_id;
    $self->data->{$session_id};
}

sub insert {
    my ($self, $session_id, $data) = @_;
    Carp::croak "missing session_id" unless $session_id;
    $self->data->{$session_id} = $data;
}

sub update {
    my ($self, $session_id, $data) = @_;
    Carp::croak "missing session_id" unless $session_id;
    $self->data->{$session_id} = $data;
}

sub delete {
    my ($self, $session_id) = @_;
    Carp::croak "missing session_id" unless $session_id;
    delete $self->data->{$session_id};
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan