Condition Coverage

blib/lib/Mail/Address.pm
Criterion Covered Total %
condition 48 64 75.0


and 3 conditions

line !l l&&!r l&&r condition
22 0 5 44 @_ && ref $_[0]
48 7 2 29 /[A-Z]/ and /[a-z]/
207 0 26 18 defined $phrase and length $phrase
0 0 26 defined $email and length $email
213 0 0 18 defined $email and length $email
220 0 28 16 defined $comment and $comment =~ /\S/
225 0 28 16 defined $comment and length $comment
242 0 26 18 defined $phrase and length $phrase
248 33 7 4 $name eq '' and $addr =~ /([^\%\.\@_]+([\._][^\%\.\@_]+)+)[\@\%]/
253 37 6 1 $name eq '' and $addr =~ m[/g=]i

or 2 conditions

line l !l condition
264 0 0 (shift())->address || ''
271 0 0 (shift())->address || ''

or 3 conditions

line l !l&&r !l&&!r condition
95 10 0 409 s/^("(?:[^"\\]+|\\.)*")\s*// or s/^(\[(?:[^\]\\]+|\\.)*\])\s*//
10 218 191 s/^("(?:[^"\\]+|\\.)*")\s*// or s/^(\[(?:[^\]\\]+|\\.)*\])\s*// or s/^([^\s()<>\@,;:\\".[\]]+)\s*//
218 191 0 s/^("(?:[^"\\]+|\\.)*")\s*// or s/^(\[(?:[^\]\\]+|\\.)*\])\s*// or s/^([^\s()<>\@,;:\\".[\]]+)\s*// or s/^([()<>\@,;:\\".[\]])\s*//
116 27 1 276 $c eq ',' or $c eq ';'
28 20 256 $c eq ',' or $c eq ';' or $c eq '<'
126 19 16 16 @$phrase or @$comment
35 16 0 @$phrase or @$comment or @$address
158 47 1 375 $_ eq ',' or $_ eq ';'
88 27 91 /^[.\@:;]$/ or not @address
115 88 3 /^[.\@:;]$/ or not @address or $address[-1] =~ /^[.\@:;]$/