View | Details | Raw Unified | Return to bug 16044
Collapse All | Expand All

(-)a/Koha/Cache.pm (-2 / +7 lines)
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
- 

Return to bug 16044