|
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 |
- |
|
|