recursive directory walking

dirwalk.pl

sub dirwalk(Str $dir = '.', Mu :$d = none(<. ..>), Mu :$f = *,
    :&dx = -> $ {}, :&fx = -> $ {}) {
    for dir($dir, :test(*)) {
        given "$dir/$_".IO but $_ {
            when .f {
                &fx.(.path) if $f.ACCEPTS($_)
            }
            when .d {
                dirwalk(.path, :$d, :$f, :&dx, :&fx) if $d.ACCEPTS($_)
            }
        }
    }
    &dx.($dir);
}

my @modules = gather <lib lib6>.grep(*.IO.d).map({
    dirwalk($_, :f(/\.pm6?$/), :fx(&take))
});