Condition Coverage

blib/lib/Email/IsEmail.pm
Criterion Covered Total %
condition 39 108 36.1


and 3 conditions

line !l l&&!r l&&r condition
320 5 0 0 $token eq "\r" and ++$i == $raw_length || substr($email, $i, 1) ne "\n"
535 3 0 0 $token eq "\r" and ++$i == $raw_length || substr($email, $i, 1) ne "\n"
733 7 1 1 substr($IPv6, 0, 1) eq ':' and substr($IPv6, 1, 1) ne ':'
7 0 1 substr($IPv6, -1) eq ':' and substr($IPv6, -2, 1) ne ':'
768 0 0 0 $token eq "\r" and ++$i == $raw_length || substr($email, $i, 1) ne "\n"
834 0 0 0 $token eq "\r" and ++$i == $raw_length || substr($email, $i, 1) ne "\n"
925 13 0 0 $ord < 31 and $ord != 9
1005 0 0 0 $token eq "\r" and ++$i == $raw_length || substr($email, $i, 1) ne "\n"
1191 80 0 0 $checkDNS and _max($return_status) < 7
1264 0 63 17 not $dns_checked and _max($return_status) < 7

or 2 conditions

line l !l condition
199 51 30 $checkDNS //= 0
200 51 30 $errorlevel //= -1
201 0 81 $parsedata //= {}

or 3 conditions

line l !l&&r !l&&!r condition
320 0 0 0 ++$i == $raw_length || substr($email, $i, 1) ne "\n"
344 0 1 62 $context_prior == 3 or $context_prior == 4
410 0 0 501 $ord < 33 or $ord > 126
0 0 501 $ord < 33 or $ord > 126 or $ord == 10
0 1 500 $ord < 33 or $ord > 126 or $ord == 10 or index('()<>[]:;@\\,."', $token) != -1
535 0 0 0 ++$i == $raw_length || substr($email, $i, 1) ne "\n"
597 0 0 764 $ord < 33 or $ord > 126
0 0 764 $ord < 33 or $ord > 126 or index('()<>[]:;@\\,."', $token) != -1
0 0 638 $ord > 47 && $ord < 58 || $ord > 64 && $ord < 91 || $ord > 96 && $ord < 123
719 1 0 3 $index == 0 or $index == length($IPv6) - 2
768 0 0 0 ++$i == $raw_length || substr($email, $i, 1) ne "\n"
797 0 0 352 $ord > 127 or $ord == 0
0 1 351 $ord > 127 or $ord == 0 or $token eq '['
0 0 351 $ord < 33 or $ord == 127
834 0 0 0 ++$i == $raw_length || substr($email, $i, 1) ne "\n"
883 0 0 180 $ord > 127 or $ord == 0
0 0 180 $ord > 127 or $ord == 0 or $ord == 10
0 1 179 $ord < 32 or $ord == 127
925 0 0 13 $ord < 31 and $ord != 9 or $ord == 127
1005 0 0 0 ++$i == $raw_length || substr($email, $i, 1) ne "\n"
1035 0 0 75 $ord > 127 or $ord == 0
0 0 75 $ord > 127 or $ord == 0 or $ord == 10
0 0 75 $ord < 32 or $ord == 127
1075 0 0 0 ++$i == $raw_length or substr($email, $i, 1) ne "\n"