Lines 329-335
sub get_from_cache {
Link Here
|
329 |
} |
329 |
} |
330 |
|
330 |
|
331 |
my $get_sub = $self->{ref($self->{$cache}) . "_get"}; |
331 |
my $get_sub = $self->{ref($self->{$cache}) . "_get"}; |
332 |
return $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); |
332 |
my $value = $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); |
|
|
333 |
|
334 |
# Update the L1 cache when fetching the L2 cache |
335 |
# Otherwise the L1 cache won't ever be populated |
336 |
$L1_cache{$key} = $value; |
337 |
|
338 |
return $value; |
333 |
} |
339 |
} |
334 |
|
340 |
|
335 |
=head2 clear_from_cache |
341 |
=head2 clear_from_cache |
336 |
- |
|
|