Branch Coverage

lib/Sisimai/RFC5322.pm
Criterion Covered Total %
branch 35 40 87.5


line true false branch
55 1 75 if exists {"addresser" => ["from","return-path","reply-to","errors-to","reverse-path","x-postfix-sender","envelope-from","x-envelope-from"],"date" => ["date","posted-date","posted","resent-date"],"listid" => ["list-id"],"messageid" => ["message-id"],"recipient" => ["to","delivered-to","forward-path","envelope-to","x-envelope-to","resent-to","apparently-to"],"subject" => ["subject"]}->{$group}
73 0 6296 if $email =~ /(?:[\x00-\x1f]|\x1f)/
74 0 6296 if length $email > 254
75 6263 33 if $email =~ /$Re->{'ignored'}/
93 51 153 if lc($email) =~ /$match/
107 118 1973 if $argv1 =~ /qmail[ \t]+.+invoked[ \t]+/
109 1601 372 if ($argv1 =~ /\Afrom[ \t]+(.+)[ \t]+by[ \t]+([^ ]+)/) { }
314 58 elsif ($argv1 =~ /\bby[ \t]+([^ ]+)(.+)/) { }
123 1654 319 if ($value->{'from'} =~ / /)
136 243 7418 if ($e =~ /\A[(\[]\d+[.]\d+[.]\d+[.]\d+[)\]]\z/) { }
150 398 1593 unless rindex($e, ".") > -1
155 61 1593 unless ($hostname)
159 0 23 if index($e, "10.") == 0
160 5 18 if index($e, "127.") == 0
161 0 18 if index($e, "192.168.") == 0
162 0 18 if $e =~ /\A172[.](?:1[6-9]|2[0-9]|3[0-1])[.]/
172 38 3908 unless defined $value->{$e}
192 2248 616 if (length $b)
199 2227 21 if index($b, "\n\n") > 0
200 21 2227 unless $b =~ /\n\z/