view release on metacpan or  search on metacpan

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

package Apache::Session::Cassandra;

use strict;
use base qw(Apache::Session::NoSQL);

our $VERSION = '0.01';

sub populate {
    my $self = shift;
    $self->{args}->{Driver} = 'Cassandra';
    return $self->SUPER::populate(@_);
}

1;
__END__

=pod

=head1 NAME

Apache::Session::Cassandra - An implementation of Apache::Session

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

package Apache::Session::Redis;

use strict;
use base qw(Apache::Session::NoSQL);

our $VERSION = '0.1';

sub populate {
    my $self = shift;
    $self->{args}->{Driver} = 'Redis';
    return $self->SUPER::populate(@_);
}

1;
__END__

=pod

=head1 NAME

Apache::Session::Redis - An implementation of Apache::Session