Help for this page
$callback->($self);
$self->{CACHE}
sub add_to_cache { my $self = shift; ... my @files = shift; push @{ $self->{CACHE}->{$alias} }, @files; }
$cache->add_to_cache(ALIAS, @files_in_dir);