1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# $Id$
package Data::ObjectDriver::Driver::Cache::Cache;
use strict;
use warnings;
use base qw( Data::ObjectDriver::Driver::BaseCache );
sub deflate {
my $driver = shift;
my($obj) = @_;
$obj->deflate;
}
sub inflate {
my $driver = shift;
my($class, $data) = @_;
$class->inflate($data);
}
sub get_from_cache { shift->cache->thaw(@_) }
sub add_to_cache { shift->cache->freeze(@_) }
sub update_cache { shift->cache->freeze(@_) }
sub remove_from_cache { shift->cache->remove(@_) }
1;
|
