| line |
true |
false |
branch |
|
30
|
25 |
506 |
if (index($$mbody, '{') == 0) { } |
|
32
|
0 |
25 |
unless exists $mhead->{'x-amz-sns-message-id'} |
|
33
|
0 |
25 |
unless $mhead->{'x-amz-sns-message-id'} |
|
52
|
20 |
110 |
unless length $e |
|
53
|
20 |
90 |
if $e eq "--" |
|
55
|
15 |
75 |
if $foldedline |
|
58
|
15 |
75 |
if (substr($e, -1, 1) eq "!") |
|
71
|
5 |
20 |
if (exists $jsonobject->{'Message'}) { } |
|
80
|
0 |
25 |
if ($@) |
|
85
|
0 |
25 |
unless exists $sespayload->{'notificationType'} |
|
95
|
15 |
10 |
if ($p->{'notificationType'} eq 'Bounce' or $p->{'notificationType'} eq 'Complaint') { } |
|
|
10 |
0 |
elsif ($p->{'notificationType'} eq 'Delivery') { } |
|
103
|
0 |
15 |
unless "Sisimai::RFC5322"->is_emailaddress($e->{'emailAddress'}) |
|
106
|
0 |
15 |
if ($v->{'recipient'}) |
|
114
|
10 |
5 |
if ($p->{'notificationType'} eq 'Bounce') { } |
|
124
|
10 |
0 |
if ($e->{'diagnosticCode'} =~ /\A(.+?);[ ]*(.+)\z/) { } |
|
134
|
10 |
0 |
if $o->{'reportingMTA'} =~ /\Adsn;[ ](.+)\z/ |
|
136
|
10 |
0 |
if (exists $$bouncetype{$o->{'bounceType'}} and exists $$bouncetype{$o->{'bounceType'}}{$o->{'bounceSubType'}}) |
|
167
|
0 |
10 |
unless "Sisimai::RFC5322"->is_emailaddress($e) |
|
170
|
0 |
10 |
if ($v->{'recipient'}) |
|
190
|
0 |
25 |
unless $recipients |
|
192
|
25 |
0 |
if (exists $p->{'mail'}{'headers'}) |
|
197
|
75 |
75 |
unless $e->{'name'} =~ /\A(?:From|To|Subject|Message-ID|Date)\z/ |
|
202
|
25 |
0 |
unless ($rfc822head->{'message-id'}) |
|
205
|
25 |
0 |
if $p->{'mail'}{'messageId'} |
|
214
|
36 |
470 |
if index($xmail, "Amazon WorkMail") > -1 |
|
221
|
16 |
454 |
if $mhead->{'x-aws-outgoing'} |
|
222
|
113 |
357 |
if $mhead->{'x-ses-outgoing'} |
|
223
|
341 |
129 |
unless $match |
|
235
|
2298 |
3179 |
unless ($readcursor) |
|
237
|
82 |
2216 |
if (index($e, $startingof->{'message'}[0]) == 0 or index($e, $startingof->{'message'}[1]) == 0) |
|
243
|
2216 |
3179 |
unless $readcursor & $indicators->{'deliverystatus'} |
|
244
|
624 |
2555 |
unless length $e |
|
246
|
426 |
2129 |
if (my $f = 'Sisimai::RFC1894'->match($e)) { } |
|
248
|
0 |
426 |
unless my $o = "Sisimai::RFC1894"->field($e) |
|
251
|
82 |
344 |
if ($o->[-1] eq 'addr') { } |
|
|
82 |
262 |
elsif ($o->[-1] eq 'code') { } |
|
254
|
82 |
0 |
if ($o->[0] eq 'final-recipient') { } |
|
256
|
0 |
82 |
if ($v->{'recipient'}) |
|
275
|
0 |
262 |
unless exists $$fieldtable{$o->[0]} |
|
278
|
180 |
82 |
unless $f == 1 |
|
283
|
2119 |
10 |
unless index($p, "Diagnostic-Code:") == 0 |
|
284
|
0 |
10 |
unless $e =~ /\A[ \t]+(.+)\z/ |
|
291
|
47 |
82 |
unless $recipients |
|
300
|
22 |
60 |
if ($e->{'status'} =~ /\A[45][.][01][.]0\z/) |
|
304
|
11 |
11 |
if $e->{'diagnosis'} =~ /["'](\d[.]\d[.]\d.+)['"]/ |
|
310
|
82 |
0 |
unless grep {index($e->{'diagnosis'}, $_) > -1;} @{$$messagesof{$r};} |