Apache-Session-CacheAny

 view release on metacpan or  search on metacpan

lib/Apache/Session/Store/CacheAny.pm  view on Meta::CPAN

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    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 )