Condition Coverage

blib/lib/Mail/Exim/MainLogParser.pm
Criterion Covered Total %
condition 20 40 50.0


and 3 conditions

line !l l&&!r l&&r condition
121 8 0 7 exists $l->{'flag'} && defined $l->{'flag'}
123 0 2 0 $line[0] =~ /^([A-Zid]{1,4})\=.*/ and not exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
139 0 12 0 scalar @line >= 1 and !($line[0] =~ /^[A-Zid]{1,4}\=.*/) || $line[0] =~ /^([A-Zid]{1,4})\=.*/ && !exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
156 0 0 30 $line[0] =~ /^([A-Zid]{1,4})\=(.*)/ and exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
160 44 0 22 $line[0] =~ /^([A-Zid]{1,4})\=(.*)/ && exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
8 22 44 scalar @line >= 1 and not $line[0] =~ /^([A-Zid]{1,4})\=(.*)/ && exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
168 0 0 0 $line[0] =~ /^([A-Zid]{1,4})\=(.*)/ && exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
0 0 0 scalar @line >= 1 and not $line[0] =~ /^([A-Zid]{1,4})\=(.*)/ && exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}

or 2 conditions

line l !l condition
74 15 0 shift() || (return undef)
182 15 0 shift() || (return undef)

or 3 conditions

line l !l&&r !l&&!r condition
68 0 2 0 ref $class || $class
121 8 1 6 not exists $l->{'flag'} && defined $l->{'flag'} or $l->{'flag'} eq '**'
123 7 0 2 not $line[0] =~ /^[A-Zid]{1,4}\=.*/ or $line[0] =~ /^([A-Zid]{1,4})\=.*/ and not exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}
139 6 0 6 !($line[0] =~ /^[A-Zid]{1,4}\=.*/) || $line[0] =~ /^([A-Zid]{1,4})\=.*/ && !exists $Mail::Exim::MainLogParser::EXIM_FIELD_IDENFIERS{$1}