| Caller.xs | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 8 | 0 | PERL_CONTEXT *cx = INT2PTR(PERL_CONTEXT *, SvIV(context)); |
| 15 | 0 | 8 | if (CxTYPE(cx) != CXt_SUB) |
| 19 | 0 | 8 | if (!cur_cv) |
| 30 | 50 | 0 | PERL_CONTEXT *cx = INT2PTR(PERL_CONTEXT*, SvIV(context)); |