Branch Coverage

lib/Sisimai/Lhost/Exchange2003.pm
Criterion Covered Total %
branch 57 68 83.8


line true false branch
23 22 260 if defined $mhead->{'x-ms-embedded-report'}
26 22 260 if $match
28 32 228 if (defined $mhead->{'x-mailer'})
33 5 27 if index($value, $tryto->[0]) == 0 or index($value, $tryto->[1]) == 0
34 5 27 if $match
37 5 250 if (defined $mhead->{'x-mimeole'})
39 0 5 if index($mhead->{'x-mimeole'}, "Produced By Microsoft Exchange") == 0
40 0 5 if $match
43 40 215 unless scalar @{$mhead->{'received'};}
46 492 5 unless rindex($e, " with Internet Mail Service (") > -1
52 250 32 unless $match
104 87 392 unless ($readcursor)
106 32 55 if index($e, $startingof->{'message'}[0]) == 0
109 0 392 unless $readcursor & $indicators->{'deliverystatus'}
110 0 392 if $statuspart
112 264 128 if ($connvalues == scalar keys %$connheader) { }
127 37 227 if ($e =~ /\A[ \t]*([^ ]+[\@][^ ]+) on[ \t]*.*\z/ or $e =~ /\A[ \t]*.+(?:SMTP|smtp)=([^ ]+[\@][^ ]+) on[ \t]*.*\z/) { }
37 190 elsif ($e =~ /\A[ \t]+(MSEXCH:.+)\z/) { }
131 5 32 if ($v->{'recipient'})
145 0 190 if $v->{'msexch'}
146 17 173 if (index($v->{'diagnosis'}, 'MSEXCH:') == 0) { }
164 32 96 if ($e =~ /\A[ \t]+To:[ \t]+(.+)\z/) { }
32 64 elsif ($e =~ /\A[ \t]+Subject:[ \t]+(.+)\z/) { }
32 32 elsif ($e =~ /\A[ \t]+Sent:[ \t]+([A-Z][a-z]{2},.+[-+]\d{4})\z/ or $e =~ m[\A[ \t]+Sent:[ \t]+(\d+[/]\d+[/]\d+[ \t]+\d+:\d+:\d+[ \t].+)]) { }
166 0 32 if $connheader->{'to'}
172 0 32 if length $connheader->{'subject'}
180 0 32 if $connheader->{'date'}
186 0 32 unless $recipients
192 32 5 if ($e->{'diagnosis'} =~ /\AMSEXCH:.+[ \t]*[(]([0-9A-F]{8})[)][ \t]*(.*)\z/)
199 130 32 unless grep {$capturedcode eq $_;} @{$$errorcodes{$r};}
208 32 5 if $e->{'reason'}
209 0 5 unless exists $e->{'alterrors'}
210 0 5 unless length $e->{'alterrors'}
216 12 20 unless (length $emailsteak->[1])