| line |
true |
false |
branch |
|
64
|
29 |
136 |
@_ % 2 ? : |
|
67
|
0 |
165 |
if defined $args{'body'} |
|
68
|
136 |
29 |
unless (defined $body) |
|
70
|
131 |
5 |
if defined $body |
|
73
|
40 |
125 |
unless $class eq __PACKAGE__ |
|
89
|
13 |
152 |
if (not defined $body && length $body or ref $body) { } |
|
|
106 |
46 |
elsif (index($body, "\n") != -1) { } |
|
103
|
89 |
1 |
unless wantarray |
|
113
|
46 |
218 |
if (defined $body) |
|
124
|
152 |
354 |
if (@_ == 2) { } |
|
|
296 |
58 |
elsif (defined($body = $self->{'MMFF_body'})) { } |
|
135
|
41 |
465 |
wantarray ? : |
|
142
|
0 |
0 |
defined $field ? : |
|
157
|
10 |
28 |
if @_ |
|
179
|
2 |
41 |
if length $_ > 50 |
|
182
|
36 |
5 |
if @_ |
|
184
|
28 |
13 |
if (/[^$atext]/) |
|
214
|
28 |
41 |
if ($charset = $args{'charset'}) { } |
|
215
|
0 |
28 |
if $charset =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
219
|
2 |
39 |
$utf8 =~ /\P{ASCII}/ ? : |
|
222
|
4 |
65 |
if ($lang = $args{'language'}) |
|
223
|
0 |
4 |
if $lang =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
227
|
11 |
58 |
if ($encoding = $args{'encoding'}) { } |
|
228
|
0 |
11 |
unless ($encoding =~ /^[bBqQ]$/) |
|
236
|
2 |
67 |
defined $name ? : |
|
241
|
41 |
16 |
if lc $encoding eq "q" and length $utf8 < 70 and ($utf8 =~ /\A[\p{IsASCII}]+\z/ms and not $args{'force'}) |
|
243
|
4 |
24 |
$lang ? : |
|
246
|
20 |
8 |
if (lc $encoding eq 'q') { } |
|
252
|
24 |
644 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
259
|
20 |
0 |
if length $chunk |
|
267
|
7 |
303 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
274
|
8 |
0 |
if length $chunk |
|
286
|
0 |
41 |
unless $to_utf8 |
|
289
|
1 |
40 |
if (not $encoding =~ /\S/) { } |
|
|
32 |
8 |
elsif (lc $encoding eq 'q') { } |
|
|
8 |
0 |
elsif (lc $encoding eq 'b') { } |
|
312
|
1 |
323 |
unless @encoded |
|
316
|
0 |
323 |
exists $args{'is_text'} ? : |
|
323
|
14 |
27 |
unless @encoded |
|
326
|
17 |
10 |
if ($is_text and not $encoded[0] =~ /\S/) { } |
|
342
|
88 |
169 |
if ($string =~ s/^\s*\" ((?:[^"\r\n\\]*|\\.)*) (?:\"|\s*$)//x) { } |
|
|
139 |
30 |
elsif ($string =~ s/^\s*((?:\=\?.*?\?\=|[$utf8_atext$atext_ill\ \t.])+)//o) { } |
|
347
|
13 |
126 |
unless length $phrase |
|
350
|
214 |
43 |
defined $phrase ? : |
|
359
|
807 |
75 |
unless $string =~ s/^\s* \( ((?:\\.|[^)])*) (?:\)|$) //x |
|
368
|
64 |
27 |
if $count =~ tr/(// == $count =~ tr/)// |
|
370
|
11 |
16 |
unless $string =~ s/^((?:\\.|[^)])*) \)//x |
|
391
|
14 |
284 |
if (defined $c) |
|
393
|
142 |
142 |
unless $string =~ s/^\s*([$atext]+(?:\.[$atext]+)*)//o |