Apache-Session-CacheAny
view release on metacpan or search on metacpan
lib/Apache/Session/Store/CacheAny.pm view on Meta::CPAN
141516171819202122232425262728293031323334
my
(
$self
,
$session
) =
@_
;
my
$cache
=
$self
->_cache(
$session
);
if
(
$cache
->get_object(
$session
->{data}->{_session_id})) {
die
"Object already exists in the data store."
;
}
$cache
->set(
$session
->{data}->{_session_id} =>
$session
->{serialized});
}
sub
update {
my
(
$self
,
$session
) =
@_
;
my
$cache
=
$self
->_cache(
$session
);
$cache
->set(
$session
->{data}->{_session_id} =>
$session
->{serialized});
}
sub
materialize {
my
(
$self
,
$session
) =
@_
;
my
$cache
=
$self
->_cache(
$session
);
$session
->{serialized} =
$cache
->get(
$session
->{data}->{_session_id})
or
die
"Object does not exist in data store."
;
( run in 0.223 second using v1.01-cache-2.11-cpan-0f795438458 )