9 (4+1) * 2 # list/scalar with exception (try + catch + 2 x finally) + is_deeply
10 + 4 # void with exception
11 + (3+1) * 2 # list/scalar no exception (try + 2 x finally) + is_deeply
12 + 3 # void no exception
22 for (sort keys %$ctx_index) {
26 if ($ctx_index->{$ctx}) {
29 [ $die ? 'catch' : 'try' ],
32 elsif (defined $ctx_index->{$ctx}) {
35 [ $die ? 'catch' : 'try' ],
47 is (wantarray, $ctx_index->{$ctx}, "Proper context $ctx in try{}");
52 is (wantarray, $ctx_index->{$ctx}, "Proper context $ctx in catch{}");
57 skip "DESTROY() not called in void context on perl $]", 1
59 is (wantarray, undef, "Proper VOID context in finally{} 1");
65 skip "DESTROY() not called in void context on perl $]", 1
67 is (wantarray, undef, "Proper VOID context in finally{} 2");