Branch Coverage

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


line true false branch
277 324 0 @_ % 2 ? :
287 1004 728 if ($line =~ s/^(?:($RE{'cfws'})?,)//o)
289 0 400 if $1 and not $args{'skip_comments'} and $1 =~ /($RE{'comment'})/
301 0 728 if (not $in_group and $line =~ s/^($RE{'display-name'})://o)
303 0 0 unless $args{'skip_groups'}
306 0 728 if ($in_group and $line =~ s/^;//)
307 0 0 unless $args{'skip_groups'}
318 719 9 if ($line =~ s/^($CRE{'mailbox'})($RE{'cfws'}*)(?=,|;|$)//o or $line =~ s/^($CRE{'obs-mailbox'})($RE{'cfws'}*)(?=,|;|$)//o and $obsolete = 1)
324 0 719 ("$user\@$host") =~ /\P{ASCII}/ ? :
325 0 0 if $not_ascii and $args{'skip_not_ascii'}
341 0 9 if ($in_group) { }
342 0 0 if ($line =~ s/^([^;,"\)]*+(?:(?:$RE{'quoted-string'}|$RE{'comment'})[^;,"\)]*+)*+)(?=;|,)//o)
343 0 0 unless $args{'skip_unknown'}
347 2 7 if ($line =~ s/^([^,"\)]*+(?:(?:$RE{'quoted-string'}|$RE{'comment'})[^,"\)]*+)*+)(?=,)//o)
348 2 0 unless $args{'skip_unknown'}
352 7 0 unless $args{'skip_unknown'}
377 675 105 $comments[-1] =~ /^\s|\s$/ ? :
137 780 if ($1) { }
379 1785 1932 unless length $_
386 105 330 $1 ? :
390 32 276 $1 ? :
396 0 719 unless $user =~ /^$RE{'dot_atom'}$/