Lines 29-45
use C4::Context;
Link Here
|
29 |
use Koha::Cache::Memory::Lite; |
29 |
use Koha::Cache::Memory::Lite; |
30 |
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
30 |
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
31 |
|
31 |
|
32 |
eval { |
|
|
33 |
if (C4::Context->ismemcached) { |
34 |
require Memoize::Memcached; |
35 |
import Memoize::Memcached qw(memoize_memcached); |
36 |
|
37 |
memoize_memcached('getTranslatedLanguages', memcached => C4::Context->memcached); |
38 |
memoize_memcached('getFrameworkLanguages' , memcached => C4::Context->memcached); |
39 |
memoize_memcached('getAllLanguages', memcached => C4::Context->memcached); |
40 |
} |
41 |
}; |
42 |
|
43 |
BEGIN { |
32 |
BEGIN { |
44 |
require Exporter; |
33 |
require Exporter; |
45 |
@ISA = qw(Exporter); |
34 |
@ISA = qw(Exporter); |
46 |
- |
|
|