File Coverage

blib/lib/Apache/Session/Store/SharedMem.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	6	0.0
total	31	38	81.5

# Apache::Session::Store::SharedMem

# Copyright 2004, Simon Wistow
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Apache::Session::Store::SharedMem;

use strict;
use IPC::Cache;




sub new
{
    my ($class, $session) = shift;

    my ($self, $cacheargs);


    $cacheargs->{namespace}  = $session->{data}->{_session_id};
    $cacheargs->{expires_in} = $session->{args}->{expires_in};

    $self->{cache}  = new IPC::Cache ( $cacheargs );

    return bless $self, $class;
}

sub insert {

    my ($self, $session) = @_;

    $self->{cache}->set($session->{data}->{_session_id}, $session->{serialized});
}

sub update {

    my ($self, $session) = @_;

    $self->{cache}->set($session->{data}->{_session_id}, $session->{serialized});
}

sub materialize {
    my ($self, $session) = @_;

    $session->{serialized} = $self->{cache}->get($session->{data}->{_session_id});
    return undef unless defined $session->{serialized};

}

sub remove {

    my ($self, $session) = @_;


    $self->{cache}->clear();

}

sub close {

}


1;

=pod

=head1 NAME

Apache::Session::Store::SharedMem - Store persistent data in shared memory

=head1 SYNOPSIS


 use Apache::Session::Store::SharedMem;

 my $store = new Apache::Session::Store::SharedMem;

 $store->insert($ref);
 $store->update($ref);
 $store->materialize($ref);
 $store->remove($ref);

=head1 DESCRIPTION

This module fulfills the storage interface of B.  The serialized
objects are stored in shared memory.

=head1 OPTIONS

This module can optionally take one argument in the usual Apache::Session style.
The name of the option is B, and the value is the amount of time, in
seconds, that the data in the session will expire in.


 # session wil expire in a day
 tie %s, 'Apache::Session::SharedMem', undef, { expires_in => 86400 };


=head1 AUTHOR

This module was written by Simon Wistow .


=head1 COPYRIGHT

Copyright 2000, 2001 Simon Wistow
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 SEE ALSO

L, L, L