| line |
true |
false |
branch |
|
44
|
12 |
1 |
if ($body = $args->{'body'}) |
|
45
|
0 |
12 |
ref $body eq 'ARRAY' ? : |
|
46
|
0 |
12 |
unless @body |
|
49
|
0 |
13 |
if (@body > 1 or ref $body[0]) |
|
54
|
0 |
13 |
unless $self->SUPER::init($args) |
|
63
|
22 |
0 |
@_ && ref $_[0] ? : |
|
67
|
0 |
22 |
unless defined $email |
|
78
|
0 |
12 |
@_ == 1 ? : |
|
88
|
0 |
25 |
unless defined $name |
|
119
|
3 |
43 |
if ($string =~ s/^\s*\;//s) |
|
120
|
12 |
31 |
if ($string =~ s/^\s*\,//s) |
|
123
|
5 |
26 |
if (defined $email) { } |
|
126
|
0 |
5 |
if defined $comment |
|
133
|
22 |
4 |
if (defined $phrase) |
|
136
|
3 |
19 |
if ($string =~ s/^\s*\://s) |
|
139
|
3 |
0 |
unless $self->group($group) |
|
145
|
19 |
4 |
if ($string =~ s/^\s*\<([^>]*)\>//s) { } |
|
|
0 |
4 |
elsif ($real_phrase) { } |
|
|
1 |
3 |
elsif (defined $phrase) { } |
|
147
|
0 |
0 |
if $string =~ s/^\s*\"(.*?)\r?\n// |
|
159
|
3 |
20 |
unless defined $angle |
|
166
|
22 |
3 |
if defined $email |
|
167
|
9 |
16 |
if $string =~ /^\s*$/s |
|
179
|
0 |
4 |
unless @groups |
|
180
|
2 |
2 |
unless @groups > 1 |
|
182
|
2 |
0 |
$groups[0]->name eq '' && $groups[0]->addresses ? : |
|
195
|
1 |
50 |
if ($string =~ s/^\s*"((?:\\.|[^"])*)"\s*\@/\@/) { } |
|
202
|
38 |
12 |
if defined $local |
|
205
|
29 |
22 |
unless defined $local and $shorter =~ s/^\s*\@// |
|
209
|
0 |
22 |
unless defined $domain |
|
222
|
0 |
22 |
if $string =~ s/\s*(\[(?:[^[]\\]*|\\.)*\])// |
|
226
|
22 |
0 |
if defined $atom |