From a4514e0d45842e38e01e1a45d655dbf60cf6e61d Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Sat, 9 Jun 2012 10:57:52 -0400 Subject: [PATCH] Bug 8092: Cheer up Jenkins on loading Cache modules Signed-off-by: Chris Cormack Signed-off-by: Paul Poulain --- Koha/Cache.pm | 4 ++++ Koha/Cache/Fastmmap.pm | 18 +++++++++++------- Koha/Cache/Memory.pm | 20 ++++++++++++-------- 3 files changed, 27 insertions(+), 15 deletions(-) diff --git a/Koha/Cache.pm b/Koha/Cache.pm index 636d73e6c3..740a1335c8 100644 --- a/Koha/Cache.pm +++ b/Koha/Cache.pm @@ -92,6 +92,7 @@ sub set_in_cache { croak "No key" unless $key; $ENV{DEBUG} && warn "set_in_cache for $key"; + return unless $self->{cache}; return unless $self->{have_chi}; if ( defined $expiry ) { @@ -106,6 +107,7 @@ sub get_from_cache { my ( $self, $key ) = @_; croak "No key" unless $key; $ENV{DEBUG} && warn "get_from_cache for $key"; + return unless $self->{cache}; return unless $self->{have_chi}; return $self->{cache}->get($key); } @@ -113,12 +115,14 @@ sub get_from_cache { sub clear_from_cache { my ( $self, $key ) = @_; croak "No key" unless $key; + return unless $self->{cache}; return unless $self->{have_chi}; return $self->{cache}->remove($key); } sub flush_all { my $self = shift; + return unless $self->{cache}; return unless $self->{have_chi}; return $self->{cache}->clear(); } diff --git a/Koha/Cache/Fastmmap.pm b/Koha/Cache/Fastmmap.pm index 10c4eb0abc..bad19f543c 100644 --- a/Koha/Cache/Fastmmap.pm +++ b/Koha/Cache/Fastmmap.pm @@ -20,19 +20,23 @@ package Koha::Cache::Fastmmap; use strict; use warnings; use Carp; -use CHI; +use Module::Load::Conditional qw(can_load); use base qw(Koha::Cache); sub _cache_handle { my $class = shift; my $params = shift; - return CHI->new( - driver => 'FastMmap', - namespace => $params->{'namespace'} || 'koha', - expire_in => 600, - cache_size => $params->{'cachesize'} || '1m', - ); + if ( can_load( modules => { CHI => undef } ) ) { + return CHI->new( + driver => 'FastMmap', + namespace => $params->{'namespace'} || 'koha', + expire_in => 600, + cache_size => $params->{'cachesize'} || '1m', + ); + } else { + return undef; + } } 1; diff --git a/Koha/Cache/Memory.pm b/Koha/Cache/Memory.pm index daeeb4a1e3..da09765507 100644 --- a/Koha/Cache/Memory.pm +++ b/Koha/Cache/Memory.pm @@ -20,20 +20,24 @@ package Koha::Cache::Memory; use strict; use warnings; use Carp; -use CHI; +use Module::Load::Conditional qw(can_load); use base qw(Koha::Cache); sub _cache_handle { my $class = shift; my $params = shift; - return CHI->new( - driver => 'Memory', - namespace => $params->{'namespace'} || 'koha', - expire_in => 600, - max_size => $params->{'max_size'} || 8192 * 1024, - global => 1, - ); + if ( can_load( modules => { CHI => undef } ) ) { + return CHI->new( + driver => 'Memory', + namespace => $params->{'namespace'} || 'koha', + expire_in => 600, + max_size => $params->{'max_size'} || 8192 * 1024, + global => 1, + ); + } else { + return undef; + } } 1; -- 2.39.5