| line |
true |
false |
branch |
|
17
|
0 |
0 |
PUSHMARK(SP); |
|
27
|
0 |
0 |
CV *cxcv = is_sub ? cx->blk_sub.cv : NULL; |
|
28
|
0 |
0 |
int is_special = is_sub ? CvSPECIAL(cxcv) : 0; |
|
|
0 |
0 |
int is_special = is_sub ? CvSPECIAL(cxcv) : 0; |
|
|
0 |
0 |
int is_special = is_sub ? CvSPECIAL(cxcv) : 0; |
|
29
|
0 |
0 |
const char *cvname = is_sub ? GvNAME(CvGV(cxcv)) : ""; |
|
31
|
0 |
0 |
Perl_warn(aTHX_ "%s: sub %s, special %s, name %s\n", |
|
|
0 |
0 |
Perl_warn(aTHX_ "%s: sub %s, special %s, name %s\n", |
|
46
|
0 |
13 |
if (!PL_parser) |
|
55
|
16 |
0 |
I32 c = 0; |
|
62
|
70 |
16 |
while ((cx = caller_cx(c++, &dbcx))) { |
|
69
|
52 |
18 |
if (CxTYPE(dbcx) == CXt_SUB && |
|
70
|
52 |
0 |
(cxcv = dbcx->blk_sub.cv) && |
|
71
|
17 |
35 |
CvSPECIAL(cxcv) && |
|
|
17 |
0 |
CvSPECIAL(cxcv) && |
|
72
|
17 |
0 |
strEQ(GvNAME(CvGV(cxcv)), "BEGIN") |
|
93
|
0 |
0 |
while ((cx = caller_cx(c++, &dbcx))) { |
|
94
|
0 |
0 |
if (CxTYPE(dbcx) == CXt_SUB && |
|
95
|
0 |
0 |
(cxcv = dbcx->blk_sub.cv) && |
|
96
|
0 |
0 |
CvSPECIAL(cxcv) && |
|
|
0 |
0 |
CvSPECIAL(cxcv) && |
|
97
|
0 |
0 |
strEQ(GvNAME(CvGV(cxcv)), "BEGIN") |
|
100
|
0 |
0 |
if (cx && CxREALEVAL(dbcx)) |
|
|
0 |
0 |
if (cx && CxREALEVAL(dbcx)) |
|
114
|
0 |
0 |
if (PL_parser) { |
|
115
|
0 |
0 |
for (c = PL_bufptr; c < PL_bufend; c++) { |
|
|
0 |
0 |
for (c = PL_bufptr; c < PL_bufend; c++) { |
|
|
0 |
0 |
for (c = PL_bufptr; c < PL_bufend; c++) { |
|
116
|
0 |
0 |
if (isSPACE(*c)) continue; |
|
117
|
0 |
0 |
if (*c == '#') break; |
|
120
|
0 |
0 |
RETVAL = newSVpvn(c, PL_bufend - c); |
|
141
|
24 |
21 |
while (i++ < items) { |
|
144
|
0 |
24 |
if (!SvROK(sv)) |
|
149
|
0 |
24 |
if (SvROK(sv)) { |
|
156
|
0 |
24 |
PUSHMARK(SP); PUTBACK; |