3 # Copyright 2009 Chris Cormack and The Koha Dev Team
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 C4::Cache - Handling caching of html and Objects for Koha
26 use C4::Cache (cache_type => $cache_type, %params );
31 Base class for C4::Cache::X. Subclasses need to provide the following methods
33 B<_cache_handle ($params_hr)> - cache handle creator
34 B<set_in_cache ($key, $value, $expiry)>
35 B<get_from_cache ($key)>
36 B<clear_from_cache ($key)>
47 use base
qw(Class::Accessor);
49 use C4
::Cache
::Memcached
;
50 use C4
::Cache
::FastMemcached
;
52 __PACKAGE__
->mk_ro_accessors( qw( cache ) );
58 my $cache_type = $param{cache_type
} || 'memcached';
59 my $subclass = __PACKAGE__
."::".ucfirst($cache_type);
60 my $cache = $subclass->_cache_handle(\
%param)
61 or croak
"Cannot create cache handle for '$cache_type'";
62 return bless $class->SUPER::new
({cache
=> $cache}), $subclass;
75 Chris Cormack, E<lt>chris@bigballofwax.co.nzE<gt>