Condition Coverage

lib/Sisimai/Lhost/Exim.pm
Criterion Covered Total %
condition 50 67 74.6


and 2 conditions

line l !l condition
386 72 115 not $e->{'rhost'} and scalar @{$mhead->{'received'};}

and 3 conditions

line !l l&&!r l&&r condition
25 68 302 172 defined $mhead->{'message-id'} and $mhead->{'message-id'} =~ /\A[<]\w{7}[-]\w{6}[-]\w{2}[\@]/
333 192 15 10 not $e->{'diagnosis'} and length $boundary00 > 0
356 172 0 45 exists $e->{'alterrors'} and $e->{'alterrors'}

or 2 conditions

line l !l condition
16 542 1 shift() // (return undef)
17 542 0 shift() // (return undef)
347 0 10 $dscontents->[0]{'diagnosis'} || ''
438 117 100 $e->{'status'} || 'Sisimai::SMTP::Status'->find($e->{'diagnosis'}) || ''
439 167 50 $e->{'replycode'} || 'Sisimai::SMTP::Reply'->find($e->{'diagnosis'}) || ''
454 10 0 'Sisimai::SMTP::Status'->code($e->{'reason'}, 1) || ''
458 15 35 'Sisimai::SMTP::Status'->code($e->{'reason'}, 0) || ''
476 15 0 'Sisimai::SMTP::Status'->code($e->{'reason'}, 1) || ''
480 5 20 'Sisimai::SMTP::Status'->code($e->{'reason'}, 0) || ''
485 172 45 $e->{'command'} ||= ""

or 3 conditions

line l !l&&r !l&&!r condition
192 182 5 1642 $e =~ /\A[ \t]{2}([^ \t]+[\@][^ \t]+[.]?[a-zA-Z]+)(:.+)?\z/ or $e =~ /\A[ \t]{2}[^ \t]+[\@][^ \t]+[.][a-zA-Z]+[ ]<(.+?[\@].+?)>:.+\z/
187 0 1642 $e =~ /\A[ \t]{2}([^ \t]+[\@][^ \t]+[.]?[a-zA-Z]+)(:.+)?\z/ or $e =~ /\A[ \t]{2}[^ \t]+[\@][^ \t]+[.][a-zA-Z]+[ ]<(.+?[\@].+?)>:.+\z/ or $e =~ /$markingsof->{'alias'}/
6 25 1611 $e =~ /\A[ ]+[(]generated[ ]from[ ](.+)[)]\z/ or $e =~ /\A[ ]+generated[ ]by[ ]([^ \t]+[\@][^ \t]+)/
252 0 30 0 $v->{'spec'} ||= rindex($o->[2], "\@") > -1 ? "SMTP" : "X-UNIX"
300 0 0 6 not $q->{'recipient'} or rindex($q->{'recipient'}, "\@") == -1
331 0 211 6 $e->{'lhost'} ||= $localhost0
348 10 0 0 $e->{'spec'} ||= $dscontents->[0]{'spec'}
358 20 25 0 $e->{'diagnosis'} ||= $e->{'alterrors'}
360 0 0 45 index($e->{'diagnosis'}, "-") == 0 or substr($e->{'diagnosis'}, -2, 2) eq "__"
403 0 5 212 $e->{'command'} eq "HELO" or $e->{'command'} eq "EHLO"
474 10 5 25 $e->{'reason'} eq "expired" or $e->{'reason'} eq "mailboxfull"
483 55 107 55 $e->{'status'} ||= $sv