| line |
true |
false |
branch |
|
58
|
209 |
1 |
if $parent->parent |
|
85
|
77 |
0 |
if $c |
|
|
77 |
294 |
if ($l eq '(') { } |
|
|
77 |
217 |
elsif ($l eq ')') { } |
|
86
|
61 |
16 |
if $c |
|
87
|
59 |
158 |
if $c |
|
107
|
0 |
152 |
unless my $parent = $child->parent |
|
109
|
152 |
143 |
if $c->[$_] == $child |
|
115
|
4 |
50 |
unless my $parent = $child->parent |
|
117
|
1 |
49 |
if @$c == 0 or $c->[-1] == $child |
|
123
|
8 |
56 |
unless my $parent = $child->parent |
|
125
|
1 |
55 |
if @$c == 0 or $c->[0] == $child |
|
138
|
11 |
9 |
if @{$child->children} |
|
141
|
2 |
7 |
unless $p = $p->next |
|
149
|
6 |
15 |
unless $p = $p->prev |
|
162
|
1 |
3 |
unless my $q = $p->parent |
|
168
|
0 |
2 |
if $first == $second |
|
178
|
19 |
0 |
defined($q = $p->children->[$_]) ? : |
|
193
|
8 |
72 |
unless my $parent = $child->parent |
|
194
|
34 |
38 |
$parent->children->[0] == $child ? : |
|
199
|
4 |
60 |
unless my $parent = $child->parent |
|
201
|
30 |
30 |
$parent->children->[-1] == $child ? : |
|
206
|
1 |
1 |
$parent->parent ? : |
|
211
|
1 |
0 |
@{$parent->children} == 1 ? : |
|
216
|
1 |
1 |
@{$parent->children} == 0 ? : |
|
235
|
0 |
2 |
unless defined(my $i = &indexOfChildInParent($child)) |
|
242
|
0 |
2 |
unless defined(my $i = &indexOfChildInParent($child)) |
|
251
|
0 |
1 |
unless my $f = $parent->first |
|
258
|
0 |
3 |
unless my $n = $parent->next |
|
265
|
0 |
2 |
unless my $p = $parent->prev |
|
272
|
0 |
1 |
unless my $l = $parent->last |
|
281
|
0 |
10 |
unless my $parent = $child->parent |
|
312
|
0 |
5 |
unless defined(my $i = &indexOfChildInParent($child)) |
|
322
|
0 |
5 |
unless defined(my $i = &indexOfChildInParent($child)) |
|
344
|
2 |
2 |
if $c->key ~~ $parent->key |
|
351
|
0 |
1 |
unless my $prev = $child->prev |
|
357
|
0 |
1 |
unless my $next = $child->next |
|
391
|
2 |
1 |
$ref =~ /code/i ? : |
|
|
2 |
3 |
$ref =~ /exp/i ? : |
|
|
1 |
5 |
$ref =~ /hash/i ? : |
|
|
1 |
6 |
$ref =~ /array/i ? : |
|
396
|
13 |
48 |
if &$sel($child->key) |
|
410
|
11 |
9 |
if (my(@c) = @{$child->children}) { } |
|
426
|
36 |
37 |
if (my(@c) = @{$child->children}) |
|
427
|
12 |
24 |
if $reverse |
|
428
|
12 |
24 |
if $preorder |
|
430
|
24 |
12 |
unless $preorder |
|
466
|
0 |
4 |
if $first == $second |
|
470
|
2 |
2 |
!@f ? : |
|
475
|
1 |
1 |
&above($second, $first) ? : |
|
483
|
2 |
2 |
unless @f and @s |
|
484
|
2 |
0 |
&indexOfChildInParent($f[-1]) > &indexOfChildInParent($s[-1]) ? : |
|
489
|
1 |
1 |
&after($second, $first) ? : |
|
505
|
1 |
8 |
if $child == $ancestor |
|
509
|
8 |
7 |
if $q == $ancestor |
|
516
|
0 |
1 |
unless my $parent = $child->parent |
|
524
|
0 |
1 |
unless my $parent = $child->parent |
|
532
|
0 |
2 |
unless my $parent = $start->parent |
|
533
|
1 |
1 |
unless $parent == $finish->parent |
|
537
|
1 |
0 |
if @c |
|
546
|
1 |
7 |
if $p == $ancestor |
|
548
|
1 |
1 |
if not @p or $p[-1] == $ancestor |
|
554
|
9 |
13 |
if @{$start->children} |
|
558
|
11 |
2 |
$p->next ? : |
|
565
|
2 |
20 |
unless ($p->parent) |
|
569
|
9 |
11 |
if $p->isLast |
|
570
|
11 |
0 |
if (my $q = $p->next) |
|
579
|
9 |
13 |
if @{$start->children} |
|
583
|
11 |
2 |
$p->prev ? : |
|
590
|
2 |
20 |
unless ($p->parent) |
|
594
|
9 |
11 |
if $p->isFirst |
|
595
|
11 |
0 |
if (my $q = $p->prev) |
|
612
|
0 |
355 |
$print ? : |
|
613
|
0 |
14 |
ref $value ? : |
|
|
341 |
14 |
!defined($value) ? : |
|
614
|
347 |
8 |
if $preorder |
|
615
|
8 |
347 |
if $reverse |
|
617
|
8 |
347 |
unless $preorder |
|
621
|
0 |
37 |
if -e $logFile |
|
656
|
0 |
62 |
$print ? : |
|
658
|
31 |
31 |
unless @$c |
|
668
|
0 |
12 |
$print ? : |
|
670
|
6 |
6 |
unless @$c |
|
5389
|
0 |
1 |
if eval "eof(${p}::DATA)" |
|
5391
|
0 |
1 |
if $@ |
|
5393
|
0 |
1 |
if $@ |