| line |
true |
false |
branch |
|
50
|
0 |
92 |
if ($] < 5.006) { } |
|
56
|
92 |
0 |
unless ref $self |
|
73
|
0 |
0 |
if (UNIVERSAL::isa($obj, 'WE::Util::GenericTree')) { } |
|
83
|
92 |
532 |
if (@_) |
|
87
|
0 |
92 |
if (ref $data and UNIVERSAL::can($data, 'id')) { } |
|
|
12 |
80 |
elsif (ref $data and UNIVERSAL::isa($data, 'HASH') and exists $$data{'Id'}) { } |
|
|
80 |
0 |
elsif (defined $data) { } |
|
107
|
80 |
583 |
if (defined $parent) { } |
|
128
|
0 |
0 |
if $self->is_descendent($newparent) |
|
129
|
0 |
0 |
unless $oldparent |
|
144
|
184 |
160 |
if ($self->parent) { } |
|
167
|
160 |
0 |
if (defined $flag) { } |
|
168
|
160 |
0 |
$flag ? : |
|
192
|
80 |
463 |
if (@_) { } |
|
197
|
0 |
80 |
if (ref $subtree and UNIVERSAL::isa($subtree, 'WE::Util::GenericTree')) { } |
|
207
|
0 |
80 |
wantarray ? : |
|
209
|
264 |
199 |
wantarray ? : |
|
217
|
0 |
0 |
if $self eq $tree |
|
220
|
0 |
0 |
if $r |
|
230
|
0 |
0 |
unless $_ eq $subp |
|
247
|
0 |
0 |
if $self->pathname eq $pathname |
|
250
|
0 |
0 |
if defined $r |
|
257
|
0 |
0 |
unless defined $separator |
|
259
|
0 |
0 |
if (not defined $path[0] or $path[0] eq '') |
|
268
|
0 |
0 |
if (not defined $self->parent) { } |
|
273
|
0 |
0 |
wantarray ? : |
|
291
|
0 |
0 |
if (defined $separator) { } |
|
300
|
0 |
0 |
if (not defined $$self{'Parent'}) { } |
|
310
|
0 |
0 |
if (defined $tree) { } |
|
311
|
0 |
0 |
if ($type eq '-below') { } |
|
315
|
0 |
0 |
unless $parent |
|
320
|
0 |
0 |
if ($sub eq $tree) |
|
330
|
0 |
0 |
if ($type eq '-at') { } |
|
|
0 |
0 |
elsif ($type eq '-after') { } |
|
|
0 |
0 |
elsif ($type eq '-before') { } |