Lines 34-45
eval {
Link Here
|
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 => C4::Context->config('memcached_namespace') || 'koha', |
39 |
}; |
39 |
expire_time => 600000 |
|
|
40 |
}; # cache for 10 mins |
40 |
|
41 |
|
41 |
memoize_memcached( '_get_columns', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes |
42 |
memoize_memcached( '_get_columns', memcached => $memcached ); |
42 |
memoize_memcached( 'GetPrimaryKeys', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes |
43 |
memoize_memcached( 'GetPrimaryKeys', memcached => $memcached ); |
43 |
} |
44 |
} |
44 |
}; |
45 |
}; |
45 |
|
46 |
|
46 |
- |
|
|