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]/) |