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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id: Negotiate.pm 1513 2008-03-12 08:25:59Z fumiakiy $
package MT::Cache::Negotiate;
use strict;
sub new {
my $class = shift;
my (%param) = @_;
$param{'ttl'} ||= 0;
require MT::Memcached;
if ( MT::Memcached->is_available ) {
$param{'__cache_driver'} = MT::Memcached->instance;
}
else {
require MT::Cache::Session;
$param{'__cache_driver'} = MT::Cache::Session->new(%param);
}
my $self = bless \%param, $class;
return $self;
}
sub AUTOLOAD {
my $self = shift;
(my $method = our $AUTOLOAD) =~ s/^.*:://;
return unless $self->{'__cache_driver'};
return $self->{'__cache_driver'}->$method(@_);
}
1;
__END__
=head1 NAME
MT::Cache::Negotiate - Utility package to decide whether to cache data
in memcached or in MT::Session table.
=head1 SYNOPSIS
my $cache = MT::Cache::Negotiate->new({ttl => 10});
my $data = $cache->get($key);
$cache->set($key => $value);
my $hash = $cache->get_multi($key1, $key2);
|
