line |
true |
false |
branch |
119
|
36 |
1011 |
if ($command =~ /^\[.*\]$/s) |
126
|
437 |
574 |
if $key eq 'begin' or $key eq 'end' |
209
|
166 |
0 |
defined $2 ? : |
243
|
85 |
72 |
$attribute ? : |
335
|
41 |
17 |
unless ($$self{'link'}) |
336
|
0 |
17 |
if ($link) |
364
|
0 |
79 |
if ($ntax and $counter != $ntax) |
419
|
204 |
1352 |
unless (shift())->{'taxlabels'} |
489
|
0 |
1 |
if ($self->get_otuset) |
492
|
1 |
0 |
if ($self->get_taxlabels) |
495
|
0 |
1 |
if ($self->get_type =~ /sets/i) |
512
|
0 |
0 |
if ($self->get_otuset) |
515
|
0 |
0 |
if ($self->get_taxlabels) |
561
|
6 |
2 |
unless (shift())->{'comments'} |
590
|
0 |
16 |
if ($self->get_type ne $block->get_type) |
591
|
0 |
16 |
if ($self->get_title || $block->get_title and not $self->get_title && $block->get_title) |
596
|
1 |
15 |
if (($self->get_title || '') ne ($block->get_title || '')) |
601
|
0 |
15 |
if (scalar @keys1 != scalar @keys2) |
603
|
0 |
0 |
if ($keys1[$i] ne $keys2[$i] or $$self{'link'}{$keys1[$i]} ne $$block{'link'}{$keys2[$i]}) |
650
|
0 |
70 |
if ($@) |
676
|
6 |
2 |
if ($self->get_title) |
680
|
8 |
0 |
if ($self->get_link) |
688
|
0 |
0 |
if $Bio::NEXUS::Block::AUTOLOAD =~ /DESTROY$/ |
701
|
0 |
0 |
if (defined $synonym_for{$Bio::NEXUS::Block::AUTOLOAD}) { } |