| line |
true |
false |
branch |
|
18
|
2 |
29 |
if (defined $width and ref $width eq 'HASH') |
|
22
|
19 |
12 |
defined $width ? : |
|
24
|
10 |
19 |
if (not defined $conf and defined $join and ref $join eq 'HASH') |
|
29
|
3 |
28 |
if exists $$conf{'join'} |
|
32
|
6 |
25 |
if (exists $$conf{'soft_hyphen_threshold'}) |
|
36
|
1 |
5 |
if ($$conf{'soft_hyphen_threshold'} and $$conf{'soft_hyphen_threshold'} == 0) { } |
|
43
|
2 |
4 |
if ($soft_hyphen_threshold < 3 or $soft_hyphen_threshold > $width) |
|
48
|
1 |
30 |
String::UnicodeUTF8::is_unicode($orig_line) ? : |
|
65
|
5 |
26 |
if ($line eq '') |
|
66
|
0 |
5 |
defined $join ? : |
|
76
|
14 |
175 |
if ($part eq '') |
|
89
|
115 |
75 |
if ($n < $last_index) |
|
90
|
100 |
15 |
if ($tokens[$n] =~ /[^ \t\f]\z/ and $tokens[$n + 1] =~ /\A[^ \t\f]/) |
|
92
|
17 |
83 |
if ($soft_hyphen_threshold) { } |
|
96
|
6 |
11 |
if (length "$end_chunk$beg_chunk" <= $soft_hyphen_threshold) { } |
|
108
|
3 |
91 |
substr($tokens[$n], -2, 1) =~ /[ \t\f]/ ? : |
|
111
|
5 |
89 |
if ($n) { } |
|
127
|
0 |
75 |
if ($tokens[-1] eq '') |
|
135
|
25 |
1 |
if ($turn_back_into_byte_string) |
|
141
|
2 |
24 |
if ($trailing_newlines_count) |
|
147
|
5 |
21 |
defined $join ? : |