Branch Coverage

lib/Sisimai/Lhost/ReceivingSES.pm
Criterion Covered Total %
branch 30 38 78.9


line true false branch
22 277 47 unless $mhead->{'x-ses-outgoing'}
49 910 1224 unless ($readcursor)
51 36 874 if index($e, $startingof->{'message'}[0]) == 0
54 0 1224 unless $readcursor & $indicators->{'deliverystatus'}
55 144 1080 unless length $e
57 252 828 if (my $f = 'Sisimai::RFC1894'->match($e)) { }
59 0 252 unless my $o = "Sisimai::RFC1894"->field($e)
62 72 180 if ($o->[-1] eq 'addr') { }
36 144 elsif ($o->[-1] eq 'code') { }
65 36 36 if ($o->[0] eq 'final-recipient') { }
67 0 36 if ($v->{'recipient'})
86 0 144 unless exists $$fieldtable{$o->[0]}
89 72 72 unless $f == 1
94 828 0 unless index($p, "Diagnostic-Code:") == 0
95 0 0 unless $e =~ /\A[ \t]+(.+)\z/
102 11 36 unless $recipients
111 5 31 if ($e->{'status'} =~ /\A[45][.][01][.]0\z/)
115 0 5 if $e->{'diagnosis'} =~ /["'](\d[.]\d[.]\d.+)['"]/
121 85 26 unless grep {index($e->{'diagnosis'}, $_) > -1;} @{$$messagesof{$r};}