| 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) |
|
1064
|
0 |
3 |
if ($self->get_shape =~ /(?:radial|unrooted)/i) { } |
|
1091
|
0 |
0 |
$tre->is_cladogram ? : |
|
|
0 |
0 |
$self->get_mode =~ /^p/i ? : |
|
1118
|
0 |
0 |
if $c_depth > $depth |
|
1122
|
0 |
0 |
if ($phy) { } |
|
1135
|
0 |
0 |
if $depth > $total_depth |
|
1157
|
0 |
0 |
if ($n->is_root) { } |
|
1178
|
2 |
1 |
$td->get_mode =~ /^p/i ? : |
|
1189
|
14 |
3 |
if (my $parent = $node->get_parent) { } |
|
1191
|
10 |
4 |
$phylo ? : |
|
1204
|
4 |
6 |
if $x > $tallest_tip |
|
1221
|
0 |
17 |
unless ($tallest_tip) |
|
1226
|
3 |
14 |
if (not $phylo and $node->is_terminal) |