| blib/lib/Tree/Trek.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 25 | 30 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 5 | 11 | unless $key |
| 36 | 4 | 7 | if (exists $tree->jumps->{$c}) { } |
| 47 | 11 | 5 | if (my $p = $node->parent) |
| 49 | 11 | 4 | if ($p->jumps->{$c} == $node) |
| 61 | 16 | 38 | unless $key |
| 65 | 31 | 7 | if (exists $tree->jumps->{$c}) |
| 76 | 7 | 1 | if (my $p = $child->parent) |
| 78 | 7 | 3 | if ($p->jumps->{$c} == $child) |
| 82 | 4 | 3 | unless keys %{$p->jumps} |
| 87 | 4 | 1 | unless keys %{$node->jumps} |
| 93 | 15 | 19 | $node->data ? : |
| 103 | 5 | 3 | if $node->data |
| 650 | 1 | 0 | if eval "eof(${p}::DATA)" |
| 652 | 0 | 0 | if $@ |
| 654 | 0 | 0 | if $@ |