Branch Coverage

blib/lib/Email/Address/List.pm
Criterion Covered Total %
branch 25 44 56.8


line true false branch
269 226 0 @_ % 2 ? :
279 1003 629 if ($line =~ s/^(?:($RE{'cfws'})?,)//o)
281 0 400 if $1 and not $args{'skip_comments'} and $1 =~ /($RE{'comment'})/
293 0 629 if (not $in_group and $line =~ s/^($RE{'display-name'})://o)
295 0 0 unless $args{'skip_groups'}
298 0 629 if ($in_group and $line =~ s/^;//)
299 0 0 unless $args{'skip_groups'}
310 624 5 if ($line =~ s/^($CRE{'mailbox'})($RE{'cfws'}*)(?=,|;|$)//o or $line =~ s/^($CRE{'obs-mailbox'})($RE{'cfws'}*)(?=,|;|$)//o and $obsolete = 1)
316 0 624 "$user\@$host" =~ /\P{ASCII}/ ? :
317 0 0 if $not_ascii and $args{'skip_not_ascii'}
333 0 5 if ($in_group) { }
334 0 0 if ($line =~ s/^([^;,"\)]*+(?:(?:$RE{'quoted-string'}|$RE{'comment'})[^;,"\)]*+)*+)(?=;|,)//o)
335 0 0 unless $args{'skip_unknown'}
339 2 3 if ($line =~ s/^([^,"\)]*+(?:(?:$RE{'quoted-string'}|$RE{'comment'})[^,"\)]*+)*+)(?=,)//o)
340 2 0 unless $args{'skip_unknown'}
344 3 0 unless $args{'skip_unknown'}
368 614 108 $comments[-1] =~ /^\s|\s$/ ? :
139 722 $1 ? :
370 1680 1748 unless length $_
377 104 344 $1 ? :
379 35 250 $1 ? :
385 0 624 unless $user =~ /^$RE{'dot_atom'}$/