Очистить кэш % if ($removed) { % }

<%args> $cache => undef <%init> my $removed; if ($cache eq 'remove') { # Нету нормального API для удаления всего кэша, есть только для текущего namespace # Поэтому приходится немного хачить... :) my $backend = $m->cache->{_Backend}; my @namespaces = $backend->get_namespaces(); foreach (@namespaces) { $backend->delete_namespace($_); } $removed = 1; }