| blib/lib/Tree/Trek.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 5 | unless $key |
| 38 | 4 | 7 | if (exists $tree->jumps->{$c}) { } |
| 61 | 0 | 23 | unless $key |
| 65 | 31 | 7 | if (exists $tree->jumps->{$c}) |
| 78 | 4 | 1 | unless (keys %{$node->jumps}) |
| 80 | 7 | 1 | if (my $p = $n->parent) |
| 82 | 3 | 4 | if keys %{$p->jumps} |
| 91 | 15 | 19 | $node->data ? : |
| 101 | 5 | 3 | if $node->data |
| 648 | 0 | 1 | if eval "eof(${p}::DATA)" |
| 650 | 0 | 1 | if $@ |
| 652 | 0 | 1 | if $@ |