$fs->traverse('/foo')->filter(sub ($name, $dir) { $name !~ /^\./; });
$fs->traverse('/foo')->filter(sub { $_[0] !~ /^\./; });
Is there any option to keep the first line as is? Because with -pbp perltidy breaks it into 5 lines because of a signatures feature.