Set_pmc?

capture.t

.sub 'test_set_capture'
    .local pmc capt
    .local pmc capt2
    $P1 = new ['String']
    
    capt = new ['Capture']
    capt2 = new ['Capture']

    capt[0] = 1337
    
    set capt2, capt
    
    $I0 = capt2[0]
    is($I0, 1337, "Set PMC values correct")
    
    $P0 = new ['Role']
    push_eh set_badpmc
        set capt, $P5
    pop_eh
    goto finally
    set_badpmc:
        .get_results($P1)
        say "error:"
        say $P1
        ok(1, "Bad set_pmc handled properly")
    finally:
.end