| line |
true |
false |
branch |
|
19
|
179 |
467 |
unless $mhead->{'subject'} eq "Undelivered Mail Returned to Sender" |
|
20
|
10 |
457 |
if $mhead->{'x-aol-ip'} |
|
65
|
2611 |
11807 |
unless ($readcursor) |
|
67
|
408 |
2203 |
if $e =~ /$markingsof->{'message'}/ |
|
70
|
0 |
11807 |
unless $readcursor & $indicators->{'deliverystatus'} |
|
71
|
2965 |
8842 |
unless length $e |
|
73
|
3106 |
5736 |
if (my $f = 'Sisimai::RFC1894'->match($e)) { } |
|
75
|
0 |
3106 |
unless my $o = "Sisimai::RFC1894"->field($e) |
|
78
|
754 |
2352 |
if ($o->[-1] eq 'addr') { } |
|
|
408 |
1944 |
elsif ($o->[-1] eq 'code') { } |
|
81
|
408 |
346 |
if ($o->[0] eq 'final-recipient') { } |
|
83
|
15 |
393 |
if ($v->{'recipient'}) |
|
98
|
55 |
353 |
if $v->{'spec'} eq "X-POSTFIX" |
|
103
|
0 |
1944 |
unless exists $$fieldtable{$o->[0]} |
|
106
|
1148 |
796 |
unless $f == 1 |
|
117
|
504 |
5232 |
if (index($p, 'Diagnostic-Code:') == 0 and $e =~ /\A[ \t]+(.+)\z/) { } |
|
|
393 |
4839 |
elsif ($e =~ /\A(X-Postfix-Sender):[ ]*rfc822;[ ]*(.+)\z/) { } |
|
128
|
313 |
4526 |
if ($e =~ /[ \t][(]in reply to (?:end of )?([A-Z]{4}).*/ or $e =~ /([A-Z]{4})[ \t]*.*command[)]\z/) { } |
|
|
6 |
4520 |
elsif ($e =~ /\A[<]([^ ]+[\@][^ ]+)[>] [(]expanded from [<](.+)[>][)]:[ \t]*(.+)\z/) { } |
|
|
397 |
4123 |
elsif ($e =~ /\A[<]([^ ]+[\@][^ ]+)[>]:(.*)\z/) { } |
|
|
5 |
4118 |
elsif (index($e, '--- Delivery report unavailable ---') > -1) { } |
|
132
|
308 |
5 |
if $anotherset->{'diagnosis'} |
|
159
|
2715 |
1403 |
unless $anotherset->{'diagnosis'} |
|
160
|
612 |
791 |
if $e =~ /\A[ \t]{4}(.+)\z/ |
|
169
|
64 |
393 |
unless ($recipients) |
|
171
|
10 |
54 |
if (defined $anotherset->{'recipient'} and $anotherset->{'recipient'}) { } |
|
179
|
5 |
49 |
if ($nomessages and $emailsteak->[1] =~ /^To:[ ]*(.+)/m) |
|
187
|
49 |
408 |
unless $recipients |
|
194
|
403 |
0 |
if (exists $anotherset->{'diagnosis'} and $anotherset->{'diagnosis'}) |
|
197
|
0 |
403 |
if ($e->{'diagnosis'} =~ /\A\d+\z/) { } |
|
206
|
148 |
255 |
if ($e->{'status'} eq "" or substr($e->{'status'}, -4, 4) eq ".0.0") |
|
209
|
10 |
138 |
if (length $as > 0 and substr($as, -4, 4) ne ".0.0") |
|
215
|
403 |
0 |
if ($e->{'replycode'} eq "" or substr($e->{'replycode'}, -2, 2) eq "00") |
|
218
|
347 |
56 |
if (length $ar > 0 and substr($ar, -2, 2) ne "00") |
|
224
|
342 |
61 |
if ($as or $ar and length $anotherset->{'diagnosis'} > length $e->{'diagnosis'}) |
|
232
|
44 |
379 |
if $e->{'diagnosis'} =~ /refused to talk to me:/ |
|
233
|
313 |
110 |
if $e->{'diagnosis'} =~ /host .+ said:/ |