line |
true |
false |
branch |
127
|
14526 |
0 |
if (PL_parser && PL_parser->error_count) { |
|
0 |
14526 |
if (PL_parser && PL_parser->error_count) { |
132
|
0 |
14526 |
if (kw_len > (STRLEN)I32_MAX) { |
136
|
0 |
14526 |
if (lex_bufutf8()) { |
140
|
14526 |
0 |
if ((hints = GvHV(PL_hintgv)) && (psv = hv_fetchs(hints, HINTK_KEYWORDS, 0))) { |
|
73 |
14453 |
if ((hints = GvHV(PL_hintgv)) && (psv = hv_fetchs(hints, HINTK_KEYWORDS, 0))) { |
142
|
73 |
0 |
if (!(SvROK(sv) && (sv2 = SvRV(sv), SvTYPE(sv2) == SVt_PVHV))) { |
|
0 |
73 |
if (!(SvROK(sv) && (sv2 = SvRV(sv), SvTYPE(sv2) == SVt_PVHV))) { |
145
|
14453 |
0 |
} else if (PL_curstash && (psv = hv_fetchs(PL_curstash, KEYWORDS, 0))) { |
|
13 |
14440 |
} else if (PL_curstash && (psv = hv_fetchs(PL_curstash, KEYWORDS, 0))) { |
147
|
0 |
13 |
if (SvTYPE(sv) != SVt_PVGV) |
148
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
|
0 |
0 |
croak("%s: internal error: %s{'%s'} not a stash: %"SVf, MY_PKG, HvNAME(PL_curstash), KEYWORDS, SVfARG(sv)); |
153
|
14491 |
35 |
if (!sv2 || !(psv = hv_fetch((HV *)sv2, kw_ptr, kw_xlen, 0))) { |
|
14476 |
15 |
if (!sv2 || !(psv = hv_fetch((HV *)sv2, kw_ptr, kw_xlen, 0))) { |
158
|
15 |
0 |
if (!(SvROK(sv) && (av = (AV*)SvRV(sv), SvTYPE((SV*)av) == SVt_PVAV))) { |
|
0 |
15 |
if (!(SvROK(sv) && (av = (AV*)SvRV(sv), SvTYPE((SV*)av) == SVt_PVAV))) { |
162
|
0 |
15 |
if (av_len(av) != 1) { |
166
|
0 |
15 |
if ( !( psv = av_fetch(av, 0, 0))) { |
171
|
0 |
15 |
if ( !( psv = av_fetch(av, 1, 0))) { |
174
|
15 |
0 |
*is_expr = SvIV(*psv); |
182
|
107 |
0 |
SV *sv = FILTER_DATA(idx); |
184
|
107 |
0 |
ptr = SvPV(sv, len); |
185
|
12 |
95 |
if (!len) { |
189
|
88 |
7 |
if (!n) { |
191
|
88 |
0 |
d = nl ? (STRLEN)(nl - ptr + 1) : len; |
193
|
7 |
0 |
d = n < 0 ? INT_MAX : n; |
194
|
7 |
0 |
if (d > len) { |
212
|
0 |
15 |
if (lex_bufutf8()) { |
221
|
3 |
12 |
if (PL_parser->rsfp || PL_parser_filtered) { |
|
0 |
3 |
if (PL_parser->rsfp || PL_parser_filtered) { |
222
|
0 |
12 |
if (!PL_rsfp_filters) { |
226
|
12 |
12 |
while (FILTER_READ(0, sv, 4096) > 0) |
230
|
0 |
15 |
PUSHMARK(SP); |
231
|
0 |
15 |
mXPUSHs(newRV_inc(sv)); |
240
|
15 |
0 |
SvPV_force(sv, n); |
241
|
15 |
0 |
p = SvGROW(sv, n + 2); |
|
0 |
15 |
p = SvGROW(sv, n + 2); |
247
|
3 |
12 |
if (PL_parser->rsfp || PL_parser_filtered) { |
|
0 |
3 |
if (PL_parser->rsfp || PL_parser_filtered) { |
254
|
15 |
0 |
FREETMPS; |
262
|
15 |
14511 |
if ((cb = kw_handler(aTHX_ keyword_ptr, keyword_len, &is_expr))) { |
264
|
3 |
12 |
if ( is_expr ) { |
299
|
0 |
2 |
if ( !global_kw ) return; |
306
|
0 |
0 |
if ( !global_kw ) return; |