Branch Coverage

lib/Sisimai/RFC1123.pm
Criterion Covered Total %
branch 56 60 93.3


line true false branch
47 268 21467 if $argv0 eq "localhost" or $argv0 eq "localhost6"
48 6 21461 if length $argv0 > 255 or length $argv0 < 4
49 314 21147 if index($argv0, ".") == -1
50 308 20839 if index($argv0, "..") != -1
51 11 20828 if index($argv0, "--") != -1
52 0 20828 if index($argv0, ".") == 0
53 0 20828 if index($argv0, "-") == 0
54 1 20827 if substr($argv0, -1, 1) eq "-"
60 218 305984 if $f < 45
61 373 305611 if $f == 47
62 1117 304494 if $f > 57 and $f < 65
63 173 304321 if $f > 90
67 0 18946 if length $cv > 63
70 1432 45319 if $f > 47 and $f < 58
84 381 10227 if length $email < 16
85 10214 13 if substr($email, -1, 1) ne "]"
87 1 12 if $lastb < 0
90 4 8 if (index($email, '@[IPv4:') > 0) { }
7 1 elsif (index($email, '@[IPv6:') > 0) { }
115 6 1 if length $dpart > 2 and rindex($dpart, ":") > 7
146 17111 199 unless "Sisimai::String"->aligned(\$sourcetext, $e)
151 33 166 if $p1 + $cw >= $p2
160 6289 101 if $p1 < 0
168 1565 2 if $p1 < 0
173 1565 0 if scalar @$sourcelist == 0
179 2279 47696 if substr($e, -1, 1) eq "."
182 31115 1140 if length $e < 4 or index($e, ".") == -1 or __PACKAGE__->is_internethost($e) == 0
185 1249 585 if scalar @$foundtoken == 0
186 424 161 if scalar @$foundtoken == 1
190 532 184 if $thelongest >= $cw