Rakudo/jvm panda blocker

gistfile1.txt

sub indir (Str $where, Callable $what) {
    my $old = cwd;
    LEAVE chdir $old;
    chdir $where;
    $what()
}

sub batman {
    indir 'foo', {
        fail "NO";
    };
}

mkdir 'foo' unless 'foo'.IO.d;
my $res = batman;
rmdir 'foo';