Branch Coverage

blib/lib/Email/Address/List.pm
Criterion Covered Total %
branch 26 44 59.0


line true false branch
269 226 0 @_ % 2 ? :
279 1003 629 if ($line =~ s/^(?:($RE{'cfws'})?,)//o)
280 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)
294 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 624 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'}
369 601 110 $comments[-1] =~ /^\s|\s$/ ? :
148 711 $1 ? :
371 1676 1734 unless length $_
378 115 310 $1 ? :
380 33 220 $1 ? :
386 0 624 unless $user =~ /^$RE{'dot_atom'}$/