|
Lines 38-43
The first, traditional OO interface provides the following functions:
Link Here
|
| 38 |
use strict; |
38 |
use strict; |
| 39 |
use warnings; |
39 |
use warnings; |
| 40 |
use Carp; |
40 |
use Carp; |
|
|
41 |
use Clone qw( clone ); |
| 41 |
use Module::Load::Conditional qw(can_load); |
42 |
use Module::Load::Conditional qw(can_load); |
| 42 |
use Koha::Cache::Object; |
43 |
use Koha::Cache::Object; |
| 43 |
|
44 |
|
|
Lines 313-319
sub get_from_cache {
Link Here
|
| 313 |
return unless ( $self->{$cache} && ref( $self->{$cache} ) =~ m/^Cache::/ ); |
314 |
return unless ( $self->{$cache} && ref( $self->{$cache} ) =~ m/^Cache::/ ); |
| 314 |
|
315 |
|
| 315 |
# Return L1 cache value if exists |
316 |
# Return L1 cache value if exists |
| 316 |
return $L1_cache{$key} if exists $L1_cache{$key}; |
317 |
if ( exists $L1_cache{$key} ) { |
|
|
318 |
# No need to deep copy if it's a scalar: |
| 319 |
return $L1_cache{$key} |
| 320 |
unless ref $L1_cache{$key}; |
| 321 |
return clone $L1_cache{$key}; |
| 322 |
} |
| 317 |
|
323 |
|
| 318 |
my $get_sub = $self->{ref($self->{$cache}) . "_get"}; |
324 |
my $get_sub = $self->{ref($self->{$cache}) . "_get"}; |
| 319 |
return $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); |
325 |
return $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); |
| 320 |
- |
|
|