use
vars
qw(@ISA $VERSION)
;
$VERSION
=
'0.02'
;
sub
new {
my
(
$class
,
$session
) =
@_
;
my
$self
;
if
(
$session
->{args}->{Driver} ) {
my
$module
=
'Apache::Session::Store::NoSQL::'
.
$session
->{args}->{Driver};
eval
"require $module"
;
if
($@) {
die
'Unable to load '
.
$module
;
}
unless
(
$self
->{cache} = new
$module
(
$session
->{args} ) ) {
die
'Unable to instanciate '
.
$module
;
}
}
else
{
die
'No driver specified.'
;
}
bless
$self
,
$class
;
}
sub
insert {
my
(
$self
,
$session
) =
@_
;
$self
->{cache}->insert(
$session
);
}
sub
update {
my
(
$self
,
$session
) =
@_
;
$self
->{cache}->update(
$session
);
}
sub
materialize {
my
(
$self
,
$session
) =
@_
;
$session
->{serialized} =
$self
->{cache}->materialize(
$session
);
}
sub
remove {
my
(
$self
,
$session
) =
@_
;
$self
->{cache}->remove(
$session
);
}
1;