| line |
true |
false |
branch |
|
126
|
0 |
14472 |
if (defined $d and defined $desc) { } |
|
|
0 |
28944 |
elsif (defined $d and not defined $desc) { } |
|
132
|
1 |
14471 |
if defined $desc |
|
133
|
78 |
14394 |
if defined $bootstrap |
|
134
|
5138 |
9334 |
if defined $id |
|
135
|
6290 |
8182 |
if defined $branchlen |
|
136
|
974 |
13498 |
if (defined $children) |
|
137
|
0 |
974 |
unless (ref($children) =~ /ARRAY/i) |
|
172
|
0 |
19 |
unless ($self->ancestor) |
|
175
|
0 |
19 |
unless ($blen) |
|
176
|
0 |
0 |
unless $force |
|
178
|
0 |
2 |
unless (defined $pos and not defined $frac or defined $frac and not defined $pos) |
|
181
|
2 |
17 |
if (defined $frac) { } |
|
|
17 |
0 |
elsif (defined $pos) { } |
|
182
|
0 |
2 |
unless 0 <= $frac and $frac <= 1 |
|
186
|
0 |
17 |
unless 0 <= $pos and $pos <= $blen |
|
192
|
0 |
19 |
unless $newpos > 0 or $force |
|
193
|
0 |
19 |
unless $newpos < $blen or $force |
|
223
|
0 |
8936 |
unless defined $node |
|
225
|
0 |
8936 |
if (not ref $node or ref($node) =~ /HASH/ or not $node->isa('Bio::Tree::NodeI')) |
|
234
|
6770 |
2166 |
unless $node->{'_setting_ancestor'} |
|
237
|
0 |
8936 |
if ($self->{'_desc'}{$node->internal_id} and not $ignoreoverwrite) |
|
264
|
0 |
22634 |
if (ref $sortby eq 'CODE') { } |
|
|
0 |
22634 |
elsif ($sortby eq 'height') { } |
|
|
0 |
22634 |
elsif ($sortby eq 'alpha') { } |
|
|
0 |
22634 |
elsif ($sortby eq 'revalpha') { } |
|
269
|
0 |
0 |
unless $Bio::Tree::Node::a->[1] <=> $Bio::Tree::Node::b->[1] |
|
276
|
0 |
0 |
if ($v->is_Leaf) { } |
|
286
|
0 |
0 |
unless $Bio::Tree::Node::a->[1] cmp $Bio::Tree::Node::b->[1] |
|
290
|
0 |
0 |
if (not defined $v->id || $v->is_Leaf) { } |
|
301
|
0 |
0 |
unless $Bio::Tree::Node::b->[1] cmp $Bio::Tree::Node::a->[1] |
|
326
|
188 |
36 |
if ($self->{'_desc'}{$n->internal_id}) { } |
|
335
|
0 |
36 |
if ($self->verbose) |
|
398
|
9372 |
42209 |
if (@_) |
|
402
|
8947 |
425 |
if ($new_ancestor) |
|
403
|
0 |
8947 |
unless $new_ancestor->isa('Bio::Tree::NodeI') |
|
408
|
9361 |
11 |
if (not $old_ancestor or $old_ancestor and !$new_ancestor || $new_ancestor ne $old_ancestor) |
|
411
|
144 |
9217 |
if ($old_ancestor and not $old_ancestor->{'_removing_descendent'}) |
|
414
|
2166 |
7195 |
if ($new_ancestor and not $new_ancestor->{'_adding_descendent'}) |
|
439
|
6394 |
46644 |
if (@_) |
|
441
|
0 |
6394 |
if (defined $bl and $bl =~ s/\[(\d+)\]//) |
|
463
|
228 |
1395 |
if (@_) |
|
464
|
135 |
93 |
if ($self->has_tag('B')) |
|
484
|
1 |
1 |
if @_ |
|
513
|
13977 |
68198 |
if (defined $value) |
|
569
|
20020 |
41091 |
if @_ |
|
608
|
0 |
1 |
if defined $self->{'_height'} |
|
610
|
1 |
0 |
if $self->is_Leaf |
|
614
|
0 |
0 |
unless defined $bl and $bl =~ /^\-?\d+(\.\d+)?$/ |
|
616
|
0 |
0 |
if ($s > $max) |
|
635
|
10728 |
15330 |
if (defined $self->ancestor) |
|
654
|
0 |
111 |
unless (defined $tag and scalar @values) |
|
676
|
0 |
1039 |
unless (defined $tag and defined $value) |
|
677
|
0 |
0 |
$tag ? : |
|
697
|
189 |
102 |
if (exists $self->{'_tags'}{$tag}) |
|
733
|
264 |
2724 |
unless $self->{'_tags'} |
|
751
|
1223 |
4650 |
unless $self->{'_tags'}{$tag} |
|
752
|
0 |
588 |
unless $self->{'_tags'}{$tag} |
|
|
5873 |
588 |
wantarray ? : |
|
772
|
0 |
17590 |
unless defined $self |
|
802
|
0 |
0 |
if ($self->delete_edge($node)) |