| line |
true |
false |
branch |
|
68
|
0 |
68 |
if (@_) |
|
72
|
0 |
136 |
if $args{$_} |
|
96
|
51 |
3 |
if (defined $commands and @{$commands;}) |
|
150
|
1 |
81 |
if ($tree_words[0] eq '*') |
|
160
|
0 |
82 |
if (lc $tree_words[0] eq '[&u]') { } |
|
|
2 |
80 |
elsif (lc $tree_words[0] eq '[&r]') { } |
|
178
|
603 |
461 |
if ($node->is_otu) |
|
201
|
0 |
82 |
if (@_) |
|
219
|
0 |
5 |
if (@_) |
|
323
|
42 |
43 |
unless $treename |
|
325
|
40 |
305 |
if $t->get_name =~ /^$treename/ |
|
359
|
112 |
493 |
if (defined $$self{'translation'}{$num}) { } |
|
379
|
0 |
0 |
unless (defined $treename or defined $outgroup) |
|
385
|
0 |
0 |
if ($tree->get_name ne $treename) { } |
|
408
|
0 |
0 |
unless defined $self->get_tree |
|
430
|
0 |
3 |
unless defined $self->get_tree |
|
436
|
3 |
18 |
if ($translatedname) |
|
483
|
0 |
5 |
unless defined $original_node |
|
497
|
5 |
1 |
if ($child->get_name eq $original_otu_name) |
|
536
|
1 |
0 |
if ($tree->get_name eq $treename) |
|
556
|
0 |
2 |
unless ($nodename) |
|
560
|
0 |
2 |
unless ($tree) |
|
583
|
0 |
0 |
unless ($nodename) |
|
588
|
0 |
0 |
unless ($tree) |
|
612
|
0 |
2 |
unless (Bio::NEXUS::Block::equals($self, $block)) |
|
617
|
0 |
2 |
if (@trees1 != @trees2) |
|
621
|
0 |
2 |
unless ($trees1[$i]->equals($trees2[$i])) |
|
629
|
0 |
0 |
unless (Bio::NEXUS::Block::equals($self, $block)) |
|
634
|
0 |
0 |
if (@trees1 != @trees2) |
|
638
|
0 |
0 |
unless ($trees1[$i]->_equals_test($trees2[$i])) |
|
684
|
0 |
0 |
if ($tree->is_default) |
|
689
|
0 |
0 |
unless ($tree->is_rooted) |
|
698
|
0 |
1 |
if $Bio::NEXUS::TreesBlock::AUTOLOAD =~ /DESTROY$/ |
|
708
|
0 |
1 |
if (defined $synonym_for{$Bio::NEXUS::TreesBlock::AUTOLOAD}) { } |