| blib/lib/Config/IOD.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 9 | 55.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 78 | 5 | 512 | 29 | $self->{'enable_directive'} and $line =~ s/$directive_re// |
| 161 | 447 | 0 | 0 | $self->{'warn_perl'} and not $4 |
| 447 | 0 | 0 | $self->{'warn_perl'} and not $4 and substr($5, 0, 1) eq ">" |