$fs->traverse('/foo')->filter(sub ($name, $dir) { $name !~ /^\./; }); $fs->traverse('/foo')->filter(sub { $_[0] !~ /^\./; });