Branch Coverage

blib/lib/Mail/Message/Field/Addresses.pm
Criterion Covered Total %
branch 46 64 71.8


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