| line |
true |
false |
branch |
|
23
|
0 |
2 |
unless my $node = $self->get_node($subscript) |
|
25
|
2 |
0 |
if (defined $$node{'pred'}) |
|
29
|
2 |
0 |
if (defined $$node{'succ'}) |
|
37
|
0 |
2 |
if (not $p_node) { } |
|
38
|
0 |
0 |
if (not $s_node) { } |
|
49
|
0 |
2 |
if (not $s_node) { } |
|
81
|
49 |
13 |
defined $_[0]{'first'} ? : |
|
86
|
0 |
108 |
unless my $node = $_[0]->get_node($subscript) |
|
87
|
96 |
12 |
defined $$node{'succ'} ? : |
|
97
|
4 |
26 |
if ($blessing ne 'HASH') |
|
98
|
13 |
17 |
if $tie_class |
|
104
|
0 |
17 |
unless (defined $tail) |
|
106
|
17 |
0 |
if ($signal eq '>') { } |
|
|
0 |
0 |
elsif ($signal eq '<') { } |
|
141
|
37 |
13 |
if (defined $first) |
|
155
|
25 |
7 |
if (defined $k and defined $k->actual_value) { } |