| blib/lib/Perl/Tidy/LineSource.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 0 | if $AUTOLOAD =~ /\bDESTROY$/ |
| 57 | 0 | 1115 | unless $fh |
| 72 | 561 | 0 | if ($filename ne "-" and not ref $filename) |
| 74 | 0 | 561 | if (not $ok and 0) |
| 87 | 0 | 16466 | if (scalar @{$rinput_buffer;}) { } |
| 95 | 1111 | 15355 | if ($line and not $self->{'_started'}) |
| 96 | 0 | 1111 | if ($line =~ /[\015][^\015\012]/) |