| line |
true |
false |
branch |
|
26
|
5 |
0 |
IV depth = SvIV(PL_stack_base[TOPMARK+1]); |
|
28
|
15 |
5 |
for(SV ** p = PL_stack_base+TOPMARK+1; p
|
|
32
|
1 |
4 |
if( depth <= 0 ) |
|
36
|
10 |
4 |
while( depth-- ) |
|
46
|
21 |
7 |
for(SV ** p = PL_stack_base+TOPMARK+1; p
|
|
51
|
46 |
0 |
for(PERL_CONTEXT * cx = &cxstack[cxstack_ix]; cx>=cxstack; --cx){ |
|
56
|
0 |
46 |
if( cx->cx_type & CXp_SUB_RE_FAKE ) |
|
58
|
120 |
39 |
for(struct block_symbol_t *p = block_symbols+block_symbols_n-1; p>=block_symbols; --p) |
|
59
|
20 |
100 |
if( p->cv == cx->blk_sub.cv ){ |
|
60
|
3 |
17 |
if( !SvOK(p->symbol_SV) || sv_cmp(p->symbol_SV, symbol_SV)==0 ) |
|
|
3 |
0 |
if( !SvOK(p->symbol_SV) || sv_cmp(p->symbol_SV, symbol_SV)==0 ) |
|
|
0 |
3 |
if( !SvOK(p->symbol_SV) || sv_cmp(p->symbol_SV, symbol_SV)==0 ) |
|
|
4 |
13 |
if( !SvOK(p->symbol_SV) || sv_cmp(p->symbol_SV, symbol_SV)==0 ) |
|
84
|
28 |
0 |
for(struct block_symbol_t * p=block_symbols+block_symbols_n-1; p>=block_symbols; --p) |
|
85
|
28 |
0 |
if( (IV)p->cv == (IV)mg->mg_ptr ){ |
|
137
|
0 |
28 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
|
0 |
0 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
|
0 |
0 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
|
28 |
0 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
|
0 |
28 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
145
|
0 |
28 |
if( block_symbols_n >= block_symbols_capacity ){ |
|
147
|
0 |
0 |
Renew(block_symbols, block_symbols_capacity, struct block_symbol_t); |
|
158
|
0 |
1 |
Newx(block_symbols, block_symbols_capacity, struct block_symbol_t); |