Untitled

use Leave;
#CHECK {
    #prepare-leave;
    #say $*CU.DEPARSE
#}
say 1;
{
    CONTROL {
        when CX::Leave {
            say "leave"
        }
    }
    say 2;
    leave;
    say 3
}
say 4;