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)); |