|
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 never 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 |
- |
|
|