| line |
true |
false |
branch |
|
51
|
35 |
1 |
if ($body = $args->{'body'}) |
|
52
|
0 |
35 |
ref $body eq 'ARRAY' ? : |
|
53
|
0 |
35 |
unless @body |
|
56
|
0 |
36 |
if (@body > 1 or ref $body[0]) |
|
68
|
42 |
0 |
builtin::blessed($_[0]) ? : |
|
82
|
0 |
35 |
@_ == 1 ? : |
|
121
|
3 |
78 |
if ($string =~ s/^\s*\;//s) |
|
122
|
12 |
66 |
if ($string =~ s/^\s*\,//s) |
|
125
|
13 |
53 |
if (defined $email) { } |
|
128
|
0 |
13 |
if defined $comment |
|
140
|
40 |
50 |
unless defined $word |
|
142
|
50 |
0 |
if length $word |
|
145
|
13 |
37 |
if ($string =~ s/^\s*\://s) |
|
148
|
13 |
0 |
unless $self->group($group) |
|
152
|
33 |
7 |
@words ? : |
|
155
|
31 |
9 |
if ($string =~ s/^\s*\<([^>]*)\>//s) { } |
|
|
0 |
9 |
elsif ($real_phrase) { } |
|
|
4 |
5 |
elsif (defined $phrase) { } |
|
157
|
0 |
0 |
if $string =~ s/^\s*\"(.*?)\r?\n// |
|
169
|
5 |
35 |
unless defined $angle |
|
175
|
42 |
6 |
if defined $email |
|
176
|
30 |
18 |
if $string =~ /^\s*$/s |
|
179
|
0 |
18 |
if $start_length == length $string |
|
190
|
0 |
4 |
unless @groups |
|
191
|
2 |
2 |
unless @groups > 1 |
|
193
|
2 |
0 |
$groups[0]->name eq '' && $groups[0]->addresses ? : |
|
202
|
1 |
100 |
if ($string =~ s/^\s*"((?:\\.|[^"])*)"\s*\@/\@/) { } |
|
209
|
84 |
16 |
if defined $local |
|
212
|
59 |
42 |
unless defined $local and $shorter =~ s/^\s*\@// |
|
216
|
0 |
42 |
unless defined $domain |
|
228
|
0 |
42 |
if $string =~ s/\s*(\[(?:[^[]\\]*|\\.)*\])// |
|
232
|
42 |
0 |
if defined $atom |