| blib/lib/Perl/Tidy/FileWriter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 21 | 57.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 202 | 268 | 0 | 293 | $self->[16] && !@{$rlist;} |
| 270 | 55 | 716 | 102 | not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'} |
| 276 | 55 | 716 | 0 | not $forced and $self->[5] > 0 |
| 332 | 6581 | 0 | 0 | $K < $self->[18] and not $self->[17] |
| 389 | 0 | 5 | 0 | $str and substr($str, 0, 1) eq "\t" |
| 5 | 0 | 0 | $str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 320 | 0 | 265 | 2947 | not defined $Kt or $Kt != $K |