view release on metacpan or  search on metacpan

lib/Apache/Session/Memcached.pm  view on Meta::CPAN

package Apache::Session::Memcached;

use strict;
use vars qw($VERSION);
$VERSION = '0.03';

use base qw(Apache::Session);

use Apache::Session::Generate::MD5;
use Apache::Session::Lock::Null;
use Apache::Session::Serialize::Storable;
use Apache::Session::Store::Memcached;

sub populate {
	my $self = shift;
	$self->{object_store} = Apache::Session::Store::Memcached->new($self);
	$self->{lock_manager} = Apache::Session::Lock::Null->new($self);
	$self->{generate}     = \&Apache::Session::Generate::MD5::generate;
	$self->{validate}     = \&Apache::Session::Generate::MD5::validate;
	$self->{serialize}    = \&Apache::Session::Serialize::Storable::serialize;
	$self->{unserialize}  = \&Apache::Session::Serialize::Storable::unserialize;
	return $self;
}

1;
__END__

=head1 NAME

Apache::Session::Memcached - Stores persistent data using memcached (memory
cache daemon) for Apache::Session storage

=head1 SYNOPSIS

   use Apache::Session::Memcached;
   tie %session, 'Apache::Session::Memcached', $sid, {
      Servers => '10.0.0.1:20000 10.0.0.2:20000',
      NoRehash => 1,
      Readonly => 0,
      Debug => 1,
      CompressThreshold => 10_000
   };

=head1 DESCRIPTION

Apache::Session::Memcached is a bridge between Apache::Session and
memcached, a distributed memory cache daemon.

More informations about memcached are available at
L<http://www.danga.com/memcached>.

This module provides a way to use Cache::Memcached (memcached Perl API) as
Apache::Session storage implementation.

=head1 INSTALLATION

In order to install and use this package you will need Perl version 5.005 or
better.

Prerequisites:

=over 4

=item * Apache::Session >= 1.54

=item * Cache::Memcached >= 1.14

=back

Installation as usual:

   %> perl Makefile.PL
   %> make
   %> make test
   %> make install

Note: for live tests, you must run at least a memcached daemon and you could
need to edit t/CONFIG file, in order to set correct parameters used for
testing.