| line |
true |
false |
branch |
|
235
|
204 |
0 |
const char *s = SvPV((SV*)p, l); |
|
236
|
204 |
0 |
if (len) |
|
245
|
0 |
0 |
fatal("%s", SvPV_nolen((SV*)p)); |
|
270
|
179 |
20724 |
LL_foreach(perr, ei, stack) |
|
|
179 |
20724 |
LL_foreach(perr, ei, stack) |
|
279
|
15 |
0 |
if( PERL_WARNINGS_ON ) |
|
374
|
1 |
68 |
if (items % 2 == 0) |
|
378
|
4 |
68 |
for (i = 1; i < items; i += 2) |
|
380
|
4 |
0 |
const char *opt = SvPV_nolen(ST(i)); |
|
384
|
2 |
2 |
if (strEQ(opt, "debug")) |
|
392
|
2 |
0 |
else if (strEQ(opt, "debugfile")) |
|
404
|
3 |
65 |
if (wflags & WARN_NO_DEBUGGING) |
|
473
|
1 |
59 |
if ((str = PerlEnv_getenv("CBC_DISABLE_PARSER")) != NULL) |
|
476
|
1 |
59 |
if ((str = PerlEnv_getenv("CBC_ORDER_MEMBERS")) != NULL) |
|
478
|
1 |
0 |
if (isDIGIT(str[0])) |
|
480
|
0 |
0 |
else if (isALPHA(str[0])) |