gistfile1.txt

class IO::RecursivePath is IO::Path {
    multi method dir(|rest) {
        # callsame().map({
        #     my $recurse = ();
        #     $recurse = dir(.Str, :recursive) if .d;
        #     |($recurse.Slip, .IO)
        # });
        gather for callsame() {
            take dir(.Str, :recursive) if .d;
            take .IO;
        }
    }
}

sub dir($path = '.', :$recursive) {
    IO::RecursivePath.new($path.Str).dir;
}

.Str.say for dir(:recursive);