|
Lines 64-67
sub flush_L1_caches {
Link Here
|
| 64 |
} |
64 |
} |
| 65 |
} |
65 |
} |
| 66 |
|
66 |
|
|
|
67 |
=head2 |
| 68 |
|
| 69 |
Koha::Caches::flush(); |
| 70 |
|
| 71 |
Flushes all known L1 and L2 caches |
| 72 |
|
| 73 |
=cut |
| 74 |
|
| 75 |
sub flush { |
| 76 |
return unless $singleton_caches; |
| 77 |
for my $k ( keys %$singleton_caches ) { |
| 78 |
my $cache = $singleton_caches->{$k}; |
| 79 |
$cache->flush_all(); |
| 80 |
delete $singleton_caches->{$k}; |
| 81 |
} |
| 82 |
} |
| 83 |
|
| 67 |
1; |
84 |
1; |
| 68 |
- |
|
|