8 (4+1) * 2 # list/scalar with exception (try + catch + 2 x finally) + is_deeply
9 + 4 # void with exception
10 + (3+1) * 2 # list/scalar no exception (try + 2 x finally) + is_deeply
11 + 3 # void no exception
21 for (sort keys %$ctx_index) {
25 if ($ctx_index->{$ctx}) {
28 [ $die ? 'catch' : 'try' ],
31 elsif (defined $ctx_index->{$ctx}) {
34 [ $die ? 'catch' : 'try' ],
46 is (wantarray, $ctx_index->{$ctx}, "Proper context $ctx in try{}");
51 is (wantarray, $ctx_index->{$ctx}, "Proper context $ctx in catch{}");
55 is (wantarray, undef, "Proper VOID context in finally{} 1");
59 is (wantarray, undef, "Proper VOID context in finally{} 2");