| line |
true |
false |
branch |
|
28
|
5 |
0 |
IV depth = SvIV(PL_stack_base[TOPMARK+1]); |
|
30
|
15 |
5 |
for(SV ** p = PL_stack_base+TOPMARK+1; p
|
|
34
|
1 |
4 |
if( depth <= 0 ) |
|
38
|
10 |
4 |
while( depth-- ) |
|
48
|
24 |
8 |
for(SV ** p = PL_stack_base+TOPMARK+1; p
|
|
53
|
56 |
0 |
for(PERL_CONTEXT * cx = &cxstack[cxstack_ix]; cx>=cxstack; --cx){ |
|
59
|
0 |
56 |
if( cx->cx_type & CXp_SUB_RE_FAKE ) |
|
62
|
145 |
48 |
for(struct block_symbol_t *p = block_symbols+block_symbols_n-1; p>=block_symbols; --p) |
|
63
|
24 |
121 |
if( p->cv == cx->blk_sub.cv ){ |
|
64
|
4 |
20 |
if( !SvOK(p->symbol_SV) ) |
|
|
4 |
0 |
if( !SvOK(p->symbol_SV) ) |
|
|
4 |
0 |
if( !SvOK(p->symbol_SV) ) |
|
67
|
7 |
13 |
if( SvRXOK(p->symbol_SV) ){ |
|
68
|
0 |
7 |
PUSHMARK(SP); |
|
69
|
0 |
7 |
EXTEND(SP, 2); |
|
75
|
7 |
0 |
IV match_res = POPi; |
|
78
|
2 |
5 |
if( match_res ) |
|
83
|
2 |
11 |
if( sv_cmp(p->symbol_SV, symbol_SV)==0 ) |
|
107
|
32 |
0 |
for(struct block_symbol_t * p=block_symbols+block_symbols_n-1; p>=block_symbols; --p) |
|
108
|
32 |
0 |
if( (IV)p->cv == (IV)mg->mg_ptr ){ |
|
160
|
0 |
32 |
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) ) |
|
|
32 |
0 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
|
0 |
32 |
if( !(SvOK(act_SV) && SvROK(act_SV) && SvTYPE(SvRV(act_SV))==SVt_PVCV) ) |
|
168
|
0 |
32 |
if( block_symbols_n >= block_symbols_capacity ){ |
|
170
|
0 |
0 |
Renew(block_symbols, block_symbols_capacity, struct block_symbol_t); |
|
181
|
0 |
1 |
Newx(block_symbols, block_symbols_capacity, struct block_symbol_t); |