line |
true |
false |
branch |
18
|
1 |
0 |
if (my(@children) = $self->getChildren) |
32
|
0 |
3 |
unless (@children) |
35
|
0 |
0 |
unless @children |
39
|
3 |
2 |
if $children[$index] == $self |
53
|
0 |
0 |
unless (@children) |
56
|
0 |
0 |
unless @children |
68
|
2 |
0 |
if (my $parent = $self->getParent) |
71
|
2 |
0 |
if (defined $index and scalar @children > $index) |
85
|
1 |
0 |
if (my $parent = $self->getParent) |
88
|
1 |
0 |
if ($index) |
102
|
1 |
0 |
if (my(@children) = $self->getChildren) |
115
|
7 |
0 |
if ($self->{'-childs'}) |
116
|
6 |
1 |
if (wantarray) |
132
|
1 |
0 |
if (exists $self->{'-childs'}) |
133
|
1 |
0 |
if (scalar @{$self->{'-childs'};}) |
150
|
8 |
0 |
if ($self->{'-parent'}) |
166
|
0 |
0 |
unless $parent |
188
|
0 |
0 |
if $parent == $self |
202
|
0 |
0 |
if $parent == $ancestor |
214
|
0 |
0 |
if (my $parent = $self->getParent) |
227
|
1 |
0 |
if (my $parent = $self->getParent) |
229
|
1 |
0 |
if $siblings >= 2 |
241
|
1 |
0 |
if (exists $self->{'-name'}) |
262
|
0 |
2 |
unless exists $self->{'-docref'} |
263
|
0 |
2 |
unless exists $self->{'-docref'}{'-elist'} |
266
|
2 |
0 |
if (defined $element) { } |
267
|
2 |
0 |
if (exists $elist->{$element}) |
268
|
0 |
2 |
wantarray ? : |
277
|
0 |
0 |
wantarray ? : |
293
|
0 |
1 |
wantarray ? : |
303
|
1 |
0 |
if (exists $self->{'id'}) |
316
|
0 |
14 |
unless defined $id |
318
|
3 |
11 |
if (exists $idlist->{$id}) |
333
|
0 |
0 |
if (exists $self->{$attr}) |
348
|
0 |
0 |
unless $i =~ /^-/ |
351
|
0 |
0 |
wantarray ? : |
378
|
0 |
0 |
if (exists $self->{'-cdata'}) |
409
|
0 |
0 |
unless $refChild |
411
|
0 |
0 |
if $index < 0 |
422
|
0 |
1 |
unless $refChild |
424
|
0 |
1 |
if $index < 0 |
435
|
1 |
0 |
if $self->getParent |
444
|
0 |
0 |
if $self->getParent |
455
|
0 |
0 |
if $newChild->{'-parent'} eq $self |
459
|
0 |
0 |
if $index < 0 |
473
|
1 |
3 |
if $index < 0 |
497
|
0 |
0 |
if $key eq "-childs" or $key eq "-parent" |
498
|
0 |
0 |
if ($key eq '-docref') { } |
503
|
0 |
0 |
if $dockey eq "-childs" or $dockey eq "-parent" or $dockey eq "-idlist" or $dockey eq "-elist" or $dockey eq "-document" or $dockey eq "-docref" |
518
|
0 |
0 |
if ($deep) |
539
|
5 |
2 |
if ($child eq $refChild) |
563
|
0 |
2 |
if (defined $newChild->{'id'}) |
567
|
0 |
2 |
unless defined $self->{'-docref'}{'-elist'} |
569
|
1 |
1 |
unless defined $self->{'-docref'}{'-elist'}{$newChild->{'-name'}} |
584
|
2 |
2 |
unless (@{$self->{'-childs'};}) |
593
|
0 |
4 |
if (defined $oldChild->{'id'} and exists $self->{'-docref'}{'-idlist'}{$oldChild->{'id'}}) |
598
|
2 |
2 |
if (exists $self->{'-docref'}{'-elist'}{$oldChild->{'-name'}}) |