Branch Coverage

lib/Sisimai/Lhost/Facebook.pm
Criterion Covered Total %
branch 30 42 71.4


line true false branch
19 181 11 unless $mhead->{'from'} eq "Facebook "
20 0 11 unless $mhead->{'subject'} eq "Sorry, your message could not be delivered"
100 22 170 unless ($readcursor)
102 11 11 if index($e, $startingof->{'message'}[0]) == 0
105 0 170 unless $readcursor & $indicators->{'deliverystatus'}
106 44 126 unless length $e
108 77 49 if (my $f = 'Sisimai::RFC1894'->match($e)) { }
110 0 77 unless my $o = "Sisimai::RFC1894"->field($e)
113 11 66 if ($o->[-1] eq 'addr') { }
11 55 elsif ($o->[-1] eq 'code') { }
116 11 0 if ($o->[0] eq 'final-recipient') { }
118 0 11 if ($v->{'recipient'})
137 0 55 unless exists $$fieldtable{$o->[0]}
140 33 22 unless $f == 1
145 44 5 unless index($p, "Diagnostic-Code:") == 0
146 0 5 unless $e =~ /\A[ \t]+(.+)\z/
153 0 11 unless $recipients
159 11 0 if ($e->{'diagnosis'} =~ /\b([A-Z]{3})[-]([A-Z])(\d)\b/)
168 212 11 unless $fbresponse eq $rr
173 11 0 if $e->{'reason'}
186 0 0 unless $fbresponse =~ /\AINT-T\d+\z/