blib/lib/Perl/Tidy/Debugger.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 16 | 56.2 |
line | true | false | branch |
---|---|---|---|
35 | 0 | 2 | unless ($fh) |
48 | 2 | 0 | if ($self->{'_debug_file_opened'}) |
51 | 0 | 0 | if ($fh and $fh->can("close") and $debug_file ne "-" and not ref $debug_file) |
56 | 0 | 0 | unless $fh->close |
88 | 2 | 5 | unless ($self->{'_debug_file_opened'}) |
96 | 2 | 18 | if ($rtoken_type->[$j] eq 'k') { } |
109 | 0 | 20 | if ($type_str eq " ") |
115 | 19 | 1 | if (length $type_str == 1) |