| line |
true |
false |
branch |
|
29
|
12 |
0 |
if (param && SvOK(param)) { |
|
|
0 |
12 |
if (param && SvOK(param)) { |
|
|
0 |
0 |
if (param && SvOK(param)) { |
|
|
0 |
0 |
if (param && SvOK(param)) { |
|
30
|
12 |
0 |
begin = SvPV(param, len); |
|
31
|
12 |
0 |
if (len) { |
|
32
|
4 |
8 |
if (strncmp(begin, "NFC", len) == 0) { return NFC; } |
|
33
|
4 |
4 |
if (strncmp(begin, "NFD", len) == 0) { return NFD; } |
|
34
|
2 |
2 |
if (strncmp(begin, "NFKC", len) == 0) { return NFKC; } |
|
35
|
2 |
0 |
if (strncmp(begin, "NFKD", len) == 0) { return NFKD; } |
|
36
|
0 |
0 |
if (strncmp(begin, "FCD", len) == 0) { return FCD; } |
|
37
|
0 |
0 |
if (strncmp(begin, "FCC", len) == 0) { return FCC; } |
|
48
|
12 |
0 |
if (PerlIOBuf_pushed(aTHX_ f, mode, arg, tab) == 0) { |
|
76
|
0 |
12 |
PUSHMARK(sp); |
|
77
|
0 |
12 |
XPUSHs(nf); |
|
78
|
0 |
12 |
XPUSHs(input); |
|
81
|
0 |
12 |
if (call_pv("Unicode::Normalize::normalize", G_SCALAR) != 1) { |
|
87
|
12 |
0 |
if (SvPOK(output)) { |
|
88
|
12 |
0 |
temp = SvPVutf8(output, len); |
|
92
|
0 |
12 |
if (*out == NULL) { |
|
97
|
0 |
12 |
if (len <= 0) { |
|
102
|
12 |
0 |
FREETMPS; |
|
116
|
0 |
12 |
if (!PerlIO_fast_gets(nx)) { |
|
119
|
0 |
0 |
if (!nx) { |
|
125
|
6 |
6 |
if (avail <= 0) { |
|
127
|
0 |
6 |
if (avail == 0) { |
|
130
|
6 |
0 |
if (!PerlIO_error(nx) && PerlIO_eof(nx)) { |
|
|
6 |
0 |
if (!PerlIO_error(nx) && PerlIO_eof(nx)) { |
|
136
|
6 |
6 |
if (avail > 0) { |
|
161
|
6 |
0 |
if (avail == 0) { |
|
178
|
6 |
6 |
if ((PerlIOBase(f)->flags & PERLIO_F_WRBUF) && (nz->buf.ptr > nz->buf.buf)) { |
|
|
6 |
0 |
if ((PerlIOBase(f)->flags & PERLIO_F_WRBUF) && (nz->buf.ptr > nz->buf.buf)) { |
|
194
|
0 |
6 |
if ((STRLEN)count != len) { |