| line |
true |
false |
branch |
|
114
|
2 |
1 |
if (@_)
|
|
130
|
0 |
2 |
if (my $tree = $self->get_tree)
|
|
131
|
0 |
0 |
if ($tree->can($subroutine))
|
|
145
|
31 |
20 |
if ($invocant)
|
|
157
|
0 |
31 |
if (defined $value)
|
|
188
|
3 |
0 |
if (&looks_like_class('Bio::Phylo::Treedrawer::' . $format)) { }
|
|
212
|
3 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
236
|
3 |
0 |
if (&looks_like_number($height) and $height > 0) { }
|
|
261
|
3 |
0 |
if ($mode =~ /^(?:clado|phylo)$/i) { }
|
|
286
|
3 |
0 |
if ($shape =~ /^(?:rect|diag|curvy|radial|unrooted)/i) { }
|
|
310
|
1 |
0 |
if (&looks_like_number($padding) and $padding > 0) { }
|
|
335
|
1 |
0 |
if (&looks_like_number($offset)) { }
|
|
361
|
1 |
0 |
if (&looks_like_number($offset)) { }
|
|
387
|
1 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
412
|
3 |
0 |
if (&looks_like_object($tree, 3))
|
|
415
|
0 |
3 |
if (my $length = $root->get_branch_length)
|
|
461
|
2 |
0 |
if (@_ and not scalar @_ % 2 or scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
463
|
0 |
2 |
if (scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
479
|
2 |
0 |
if (&looks_like_number($o{'-width'}) or $o{'-width'} =~ /^\d+%$/) { }
|
|
487
|
2 |
0 |
if (&looks_like_number($o{'-major'}) or $o{'-major'} =~ /^\d+%$/) { }
|
|
495
|
2 |
0 |
if (&looks_like_number($o{'-minor'}) or $o{'-minor'} =~ /^\d+%$/) { }
|
|
524
|
0 |
0 |
if (ref $hash eq 'HASH') { }
|
|
554
|
0 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
578
|
2 |
0 |
if (&looks_like_number($radius) and $radius >= 0) { }
|
|
602
|
0 |
0 |
if (&looks_like_number($width) and $width > 0) { }
|
|
626
|
0 |
0 |
if (&looks_like_number($width) and $width >= 0) { }
|
|
650
|
0 |
0 |
if (&looks_like_number($radius) and $radius >= 0) { }
|
|
993
|
3 |
0 |
if (&looks_like_number($_[0])) { }
|
|
1018
|
3 |
0 |
if (&looks_like_number($_[0])) { }
|
|
1050
|
0 |
3 |
unless ($self->get_tree)
|
|
1065
|
0 |
3 |
if ($self->get_shape =~ /(?:radial|unrooted)/i) { }
|
|
1092
|
0 |
0 |
$tre->is_cladogram ? :
|
|
|
0 |
0 |
$self->get_mode =~ /^p/i ? :
|
|
1119
|
0 |
0 |
if $c_depth > $depth
|
|
1123
|
0 |
0 |
if ($phy) { }
|
|
1136
|
0 |
0 |
if $depth > $total_depth
|
|
1158
|
0 |
0 |
if ($n->is_root) { }
|
|
1179
|
2 |
1 |
$td->get_mode =~ /^p/i ? :
|
|
1190
|
14 |
3 |
if (my $parent = $node->get_parent) { }
|
|
1192
|
10 |
4 |
$phylo ? :
|
|
1205
|
4 |
6 |
if $x > $tallest_tip
|
|
1222
|
0 |
17 |
unless ($tallest_tip)
|
|
1227
|
3 |
14 |
if (not $phylo and $node->is_terminal)
|