C4/Cache.pm

   1 package C4::Cache;
   2
   3 # Copyright 2009 Chris Cormack and The Koha Dev Team
   4 #
   5 # This file is part of Koha.
   6 #
   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
  10 # version.
  11 #
  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.
  15 #
  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.
  19
  20 =head1 NAME
  21
  22 C4::Cache - Handling caching of html and Objects for Koha
  23
  24 =head1 SYNOPSIS
  25
  26   use C4::Cache (cache_type => $cache_type, %params );
  27
  28 =head1 DESCRIPTION
  29
  30 Base class for C4::Cache::X. Subclasses need to provide the following methods
  31
  32 B<_cache_handle ($params_hr)> - cache handle creator
  33
  34 B<set_in_cache ($key, $value, $expiry)>
  35
  36 B<get_from_cache ($key)>
  37
  38 B<clear_from_cache ($key)>
  39
  40 B<flush_all ()>
  41
  42 =head1 FUNCTIONS
  43
  44 =cut
  45
  46 use strict;
  47 use warnings;
  48 use Carp;
  49
  50 use base qw(Class::Accessor);
  51
  52 use C4::Cache::Memcached;
  53 use C4::Cache::FastMemcached;
  54
  55 __PACKAGE__->mk_ro_accessors( qw( cache ) );
  56
  57 sub new {
  58     my $class = shift;
  59     my %param = @_;
  60
  61     my $cache_type = $param{cache_type} || 'memcached';
  62     my $subclass = __PACKAGE__."::".ucfirst($cache_type);
  63     my $cache    = $subclass->_cache_handle(\%param)
  64       or croak "Cannot create cache handle for '$cache_type'";
  65     return bless $class->SUPER::new({cache => $cache}), $subclass;
  66 }
  67
  68 =head2 EXPORT
  69
  70 None by default.
  71
  72 =head1 SEE ALSO
  73
  74 C4::Cache::Memcached
  75
  76 =head1 AUTHOR
  77
  78 Chris Cormack, E<lt>chris@bigballofwax.co.nzE<gt>
  79
  80 =cut
  81
  82 1;
  83
  84 __END__