| blib/lib/Perl/Tidy/FileWriter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 24 | 62.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 163 | 2 | 645 | 1 | defined $logger_object && $logger_object->get_save_logfile |
| 220 | 240 | 408 | 0 | !@{$self->[15];} && $self->[16] |
| 289 | 56 | 930 | 114 | not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'} |
| 295 | 56 | 930 | 0 | not $forced and $self->[5] > 0 |
| 351 | 7513 | 0 | 0 | $K < $self->[18] and not $self->[17] |
| 412 | 0 | 2 | 0 | $str and substr($str, 0, 1) eq "\t" |
| 2 | 0 | 0 | $str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 339 | 0 | 292 | 3664 | not defined $Kt or $Kt != $K |