Perltidy: возможность сохранить sub($args){} в виде одной строки?

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

Есть ли возможность оставить первую строку как есть? Потому что с -pbp perltidy разбивает его на 5 строк из-за функции подписи.