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"
104 22 170 unless ($readcursor)
106 11 11 if index($e, $startingof->{'message'}[0]) == 0
109 0 170 unless $readcursor & $indicators->{'deliverystatus'}
110 44 126 unless length $e
112 77 49 if (my $f = 'Sisimai::RFC1894'->match($e)) { }
114 0 77 unless my $o = "Sisimai::RFC1894"->field($e)
117 11 66 if ($o->[-1] eq 'addr') { }
11 55 elsif ($o->[-1] eq 'code') { }
120 11 0 if ($o->[0] eq 'final-recipient') { }
122 0 11 if ($v->{'recipient'})
141 0 55 unless exists $$fieldtable{$o->[0]}
144 33 22 unless $f == 1
149 44 5 unless index($p, "Diagnostic-Code:") == 0
150 0 5 unless $e =~ /\A[ \t]+(.+)\z/
157 0 11 unless $recipients
163 11 0 if ($e->{'diagnosis'} =~ /\b([A-Z]{3})[-]([A-Z])(\d)\b/)
172 134 11 unless $fbresponse eq $rr
177 11 0 if $e->{'reason'}
190 0 0 unless $fbresponse =~ /\AINT-T\d+\z/