gistfile1.none

pmichaud@kiwi:~/nom$ cat y.pir
.sub 'main' :main
    $P0 = new ['ExceptionHandler']
    set_label $P0, handler
    push_eh $P0
    'a'()
    'a'()
    exit 0

  handler:
    .local pmc exception
    .get_results (exception)
    say 'caught exception'
    pop_eh
    $P0 = getattribute exception, 'resume'
    say 'resuming after exception'
    $P0()
.end

.sub 'a'
    say "In subroutine 'a'"
    die "first exception"
    say "resumed 'a' after first exception"
    die "second exception"
    say "resumed 'a' after second exception"
    say "leaving 'a'"
.end

pmichaud@kiwi:~/nom$ install/bin/parrot y.pir
In subroutine 'a'
caught exception
resuming after exception
resumed 'a' after first exception
second exception
current instr.: 'a' pc 55 (y.pir:23)
called from Sub 'main' pc 44 (y.pir:16)
pmichaud@kiwi:~/nom$