| line |
true |
false |
branch |
|
25
|
0 |
1557 |
if (!SvOK(sv)) |
|
|
0 |
0 |
if (!SvOK(sv)) |
|
|
0 |
0 |
if (!SvOK(sv)) |
|
30
|
1419 |
138 |
if (perlstyle && SvUTF8(sv)) { |
|
|
1281 |
138 |
if (perlstyle && SvUTF8(sv)) { |
|
34
|
6352 |
1281 |
while (*s) |
|
36
|
2 |
6350 |
if (*s == '"') |
|
38
|
2 |
6348 |
else if (*s == '$') |
|
40
|
2 |
6346 |
else if (*s == '@') |
|
42
|
1093 |
5253 |
else if (*s == '\\') |
|
44
|
1093 |
0 |
if (memCHRs("nrftaebx\\",*(s+1))) |
|
58
|
276 |
0 |
const char *s = SvPV(sv, len); |
|
59
|
416 |
276 |
for (; len; len--, s++) |
|
62
|
8 |
408 |
if (*s == '"') |
|
64
|
2 |
406 |
else if (*s == '\\') |
|
67
|
203 |
203 |
else if (!perlstyle && *s == '?' && len>=3 && s[1] == '?') { |
|
|
1 |
202 |
else if (!perlstyle && *s == '?' && len>=3 && s[1] == '?') { |
|
|
0 |
1 |
else if (!perlstyle && *s == '?' && len>=3 && s[1] == '?') { |
|
|
0 |
0 |
else if (!perlstyle && *s == '?' && len>=3 && s[1] == '?') { |
|
70
|
203 |
203 |
else if (perlstyle && *s == '$') |
|
|
1 |
202 |
else if (perlstyle && *s == '$') |
|
72
|
202 |
203 |
else if (perlstyle && *s == '@') |
|
|
1 |
201 |
else if (perlstyle && *s == '@') |
|
74
|
328 |
76 |
else if (isPRINT(*s)) |
|
76
|
6 |
70 |
else if (*s == '\n') |
|
78
|
2 |
68 |
else if (*s == '\r') |
|
80
|
2 |
66 |
else if (*s == '\t') |
|
82
|
4 |
62 |
else if (*s == '\a') |
|
84
|
2 |
60 |
else if (*s == '\b') |
|
86
|
2 |
58 |
else if (*s == '\f') |
|
88
|
29 |
29 |
else if (!perlstyle && *s == '\v') |
|
|
1 |
28 |
else if (!perlstyle && *s == '\v') |