Branch Coverage

lib/Sisimai/Lhost/Verizon.pm
Criterion Covered Total %
branch 48 58 82.7


line true false branch
23 207 11 unless grep {rindex($_, ".vtext.com (") > -1;} @{$$mhead{"received"};}
24 5 6 if $mhead->{'from'} eq "post_master\@vtext.com"
25 6 5 if $mhead->{'from'} =~ /[<]?sysadmin[\@].+[.]vzwpix[.]com[>]?\z/
28 207 11 if $match < 0
45 5 6 if ($match == 1) { }
53 5 0 if (my $boundary00 = "Sisimai::MIME"->boundary($mhead->{'content-type'}, 1))
62 10 85 unless ($readcursor)
64 5 5 if $e =~ /$markingsof->{'message'}/
67 0 85 unless $readcursor & $indicators->{'deliverystatus'}
68 20 65 unless length $e
77 5 60 if ($e =~ /\A[ \t]+RCPT TO: (.*)\z/) { }
5 55 elsif ($e =~ /\A[ \t]+MAIL FROM:[ \t](.+)\z/) { }
5 50 elsif ($e =~ /\A[ \t]+Subject:[ \t](.+)\z/) { }
78 0 5 if ($v->{'recipient'})
97 5 45 if $e =~ /\A(\d{3})[ \t][-][ \t](.*)\z/
105 6 0 if (my $boundary00 = "Sisimai::MIME"->boundary($mhead->{'content-type'}, 1))
114 12 42 unless ($readcursor)
116 6 6 if index($e, $startingof->{'message'}[0]) == 0
119 0 42 unless $readcursor & $indicators->{'deliverystatus'}
120 6 36 unless length $e
129 6 30 if ($e =~ /\ATo:[ \t]+(.*)\z/) { }
6 24 elsif ($e =~ /\AFrom:[ \t](.+)\z/) { }
6 18 elsif ($e =~ /\ASubject:[ \t](.+)\z/) { }
130 0 6 if ($v->{'recipient'})
150 6 12 if $e =~ /\AError:[ \t]+(.+)\z/
154 0 11 unless $recipients
157 11 0 unless $emailsteak->[1] =~ /^From: /m
158 11 0 unless $emailsteak->[1] =~ /^Subject: /m
165 0 11 unless grep {index($e->{'diagnosis'}, $_) > -1;} @{$$messagesof{$r};}