gistfile1.txt

use MONKEY_TYPING;

augment class Code {
    method outer() {
        pir::perl6_code_object_from_parrot_sub__PP($!do.get_outer())
    }
}

sub bar() {
    my $foo := {
        my $x := 1; $x = 2;
    }
    say $foo.outer().name;
}
bar();