| line |
true |
false |
branch |
|
115
|
2 |
1 |
if (@_)
|
|
131
|
0 |
2 |
if (my $tree = $self->get_tree)
|
|
132
|
0 |
0 |
if ($tree->can($subroutine))
|
|
146
|
31 |
20 |
if ($invocant)
|
|
158
|
0 |
31 |
if (defined $value)
|
|
189
|
3 |
0 |
if (&looks_like_class('Bio::Phylo::Treedrawer::' . $format)) { }
|
|
213
|
3 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
237
|
3 |
0 |
if (&looks_like_number($height) and $height > 0) { }
|
|
262
|
3 |
0 |
if ($mode =~ /^(?:clado|phylo)$/i) { }
|
|
287
|
3 |
0 |
if ($shape =~ /^(?:rect|diag|curvy|radial|unrooted)/i) { }
|
|
311
|
1 |
0 |
if (&looks_like_number($padding) and $padding > 0) { }
|
|
336
|
1 |
0 |
if (&looks_like_number($offset)) { }
|
|
362
|
1 |
0 |
if (&looks_like_number($offset)) { }
|
|
388
|
1 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
413
|
3 |
0 |
if (&looks_like_object($tree, 3))
|
|
416
|
0 |
3 |
if (my $length = $root->get_branch_length)
|
|
462
|
2 |
0 |
if (@_ and not scalar @_ % 2 or scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
464
|
0 |
2 |
if (scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
480
|
2 |
0 |
if (&looks_like_number($o{'-width'}) or $o{'-width'} =~ /^\d+%$/) { }
|
|
488
|
2 |
0 |
if (&looks_like_number($o{'-major'}) or $o{'-major'} =~ /^\d+%$/) { }
|
|
496
|
2 |
0 |
if (&looks_like_number($o{'-minor'}) or $o{'-minor'} =~ /^\d+%$/) { }
|
|
525
|
0 |
0 |
if (ref $hash eq 'HASH') { }
|
|
555
|
0 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
579
|
2 |
0 |
if (&looks_like_number($radius) and $radius >= 0) { }
|
|
603
|
0 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
627
|
0 |
0 |
if (&looks_like_number($width) and $width >= 0) { }
|
|
651
|
0 |
0 |
if (&looks_like_number($radius) and $radius >= 0) { }
|
|
994
|
3 |
0 |
if (&looks_like_number($_[0])) { }
|
|
1019
|
3 |
0 |
if (&looks_like_number($_[0])) { }
|
|
1051
|
0 |
3 |
unless ($self->get_tree)
|
|
1066
|
0 |
3 |
if ($self->get_shape =~ /(?:radial|unrooted)/i) { }
|
|
1093
|
0 |
0 |
$tre->is_cladogram ? :
|
|
|
0 |
0 |
$self->get_mode =~ /^p/i ? :
|
|
1120
|
0 |
0 |
if $c_depth > $depth
|
|
1124
|
0 |
0 |
if ($phy) { }
|
|
1137
|
0 |
0 |
if $depth > $total_depth
|
|
1159
|
0 |
0 |
if ($n->is_root) { }
|
|
1180
|
2 |
1 |
$td->get_mode =~ /^p/i ? :
|
|
1191
|
14 |
3 |
if (my $parent = $node->get_parent) { }
|
|
1193
|
10 |
4 |
$phylo ? :
|
|
1206
|
4 |
6 |
if $x > $tallest_tip
|
|
1223
|
0 |
17 |
unless ($tallest_tip)
|
|
1228
|
3 |
14 |
if (not $phylo and $node->is_terminal)
|