| blib/lib/Perl/Tidy/Debugger.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 2 | unless ($fh) |
| 48 | 2 | 0 | if ($self->{'_debug_file_opened'}) |
| 49 | 0 | 2 | unless (eval { |
| 81 | 2 | 5 | unless ($self->{'_debug_file_opened'}) |
| 87 | 2 | 18 | if ($rtoken_type->[$j] eq 'k') { } |
| 100 | 0 | 20 | if ($type_str eq " ") |
| 106 | 19 | 1 | if (length $type_str == 1) |