| 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 |
15 |
unless defined $id
|
|
318
|
3 |
12 |
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'}})
|