| blib/lib/Perl/Tidy/FileWriter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 24 | 62.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 164 | 2 | 655 | 1 | defined $logger_object && $logger_object->get_save_logfile |
| 221 | 243 | 415 | 0 | !@{$self->[15];} && $self->[16] |
| 290 | 56 | 943 | 114 | not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'} |
| 296 | 56 | 943 | 0 | not $forced and $self->[5] > 0 |
| 352 | 7618 | 0 | 0 | $K < $self->[18] and not $self->[17] |
| 413 | 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 |
|---|---|---|---|---|
| 340 | 0 | 295 | 3753 | not defined $Kt or $Kt != $K |