| line |
true |
false |
branch |
|
61
|
2 |
530 |
return AvFILL(av) + 1; |
|
99
|
521 |
0 |
if (AvFILLp(av) < key) { |
|
100
|
508 |
13 |
if (key > AvMAX(av)) { |
|
191
|
0 |
0 |
Newx(ary, size, SV*); /* Newx performs the memwrap check */ |
|
196
|
0 |
0 |
if (zeroflag) |
|
197
|
0 |
0 |
Zero(ary, size, SV*); |
|
1413
|
0 |
0 |
if (len == 0) { |
|
1431
|
0 |
0 |
- (PTR2nat(x) & PERL_WORD_BOUNDARY_MASK)) |
|
1436
|
0 |
0 |
while (PTR2nat(x) & PERL_WORD_BOUNDARY_MASK) { |
|
1437
|
0 |
0 |
if (! UTF8_IS_INVARIANT(*x)) { |
|
1438
|
0 |
0 |
if (ep) { |
|
1450
|
0 |
0 |
if ((* (const PERL_UINTMAX_T *) x) & PERL_VARIANTS_WORD_MASK) { |
|
1454
|
0 |
0 |
if (! ep) { |
|
1475
|
0 |
0 |
} while (x + PERL_WORDSIZE <= send); |
|
1482
|
0 |
0 |
while (x < send) { |
|
1483
|
0 |
0 |
if (! UTF8_IS_INVARIANT(*x)) { |
|
1484
|
0 |
0 |
if (ep) { |
|
1585
|
0 |
0 |
ASSUME(word != 0); |
|
2466
|
0 |
17 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_c9_utf8_dfa_tab, |
|
|
40 |
0 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_c9_utf8_dfa_tab, |
|
|
23 |
17 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_c9_utf8_dfa_tab, |
|
|
16 |
1 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_c9_utf8_dfa_tab, |
|
|
1 |
0 |
PERL_IS_UTF8_CHAR_DFA(s0, e, PL_c9_utf8_dfa_tab, |
|
2532
|
0 |
0 |
if (len == 0) { |
|
2536
|
0 |
0 |
if (is_utf8_invariant_string_loc(s, len, &first_variant)) { |
|
2537
|
0 |
0 |
if (el) |
|
2540
|
0 |
0 |
if (ep) { |
|
2552
|
0 |
0 |
while (x < send) { |
|
2554
|
0 |
0 |
if (UNLIKELY(! cur_len)) { |
|
2561
|
0 |
0 |
if (el) |
|
2564
|
0 |
0 |
if (ep) { |
|
3483
|
4 |
0 |
if (gimme) |
|
3486
|
0 |
0 |
if (cxix < 0) |
|
3487
|
0 |
0 |
return PL_curstackinfo->si_type == PERLSI_SORT ? G_SCALAR: G_VOID; |
|
4376
|
21 |
5855 |
return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv); |
|
|
21 |
0 |
return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv); |
|
|
8 |
13 |
return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv); |
|
|
8 |
0 |
return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv); |
|
4470
|
0 |
0 |
if (!pv) |