|
Lines 28-41
require Exporter;
Link Here
|
| 28 |
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); |
28 |
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); |
| 29 |
|
29 |
|
| 30 |
eval { |
30 |
eval { |
| 31 |
my $servers = C4::Context->config('memcached_servers'); |
31 |
my $servers = $ENV{'MEMCACHED_SERVERS'}; |
| 32 |
if ($servers) { |
32 |
if ($servers) { |
| 33 |
require Memoize::Memcached; |
33 |
require Memoize::Memcached; |
| 34 |
import Memoize::Memcached qw(memoize_memcached); |
34 |
import Memoize::Memcached qw(memoize_memcached); |
| 35 |
|
35 |
|
| 36 |
my $memcached = { |
36 |
my $memcached = { |
| 37 |
servers => [$servers], |
37 |
servers => [$servers], |
| 38 |
key_prefix => C4::Context->config('memcached_namespace') || 'koha', |
38 |
key_prefix => $ENV{'MEMCACHED_NAMESPACE'} || 'koha', |
| 39 |
expire_time => 600 |
39 |
expire_time => 600 |
| 40 |
}; # cache for 10 mins |
40 |
}; # cache for 10 mins |
| 41 |
|
41 |
|
| 42 |
- |
|
|