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