gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Failing gracefully if Memoize::Memcached is not installed 

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Chris Cormack 2009-08-24 15:37:00 +12:00 committed by Galen Charlton
parent 2c82872dcb
commit 32e65e451f
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
C4/Languages.pm
View File

@ -2,7 +2,7 @@ package C4::Languages;
# Copyright 2006 (C) LibLime
# Joshua Ferraro <jmf@liblime.com>
#
# Portions Copyright 2009 Chris Cormack and the Koha Dev Team
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
@ -25,17 +25,19 @@ use Carp;
use C4::Context;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
use Memoize::Memcached
memcached => {
eval {
require Memoize::Memcached;
import Memoize::Memcached qw(memoize_memcached);
my $memcached = {
servers => [ C4::Context->config('memcached_servers') ],
key_prefix => C4::Context->config('memcached_namespace'),
};
memoize_memcached('getTranslatedLanguages', expire_time => 600); #cache for 10 minutes
memoize_memcached('getFrameworkLanguages' , expire_time => 600);
memoize_memcached('getAllLanguages', expire_time => 600);
};
memoize_memcached('getTranslatedLanguages', memcached => $memcached, expire_time => 600); #cache for 10 minutes
memoize_memcached('getFrameworkLanguages' , memcached => $memcached, expire_time => 600);
memoize_memcached('getAllLanguages', memcached => $memcached, expire_time => 600);
};
BEGIN {
$VERSION = 3.00;