| line |
true |
false |
branch |
|
63
|
0 |
2 |
unless ($type) |
|
66
|
2 |
0 |
if defined $commands and @$commands |
|
183
|
0 |
0 |
if ($outfile eq '-' or $outfile eq \*STDOUT) { } |
|
187
|
0 |
0 |
unless open $fh, ">$outfile" |
|
230
|
0 |
0 |
if ($$self{'taxsets'}{$setname}[$i] eq $otu_to_remove) |
|
255
|
0 |
0 |
if ($otu_element eq $otu_to_keep) |
|
280
|
0 |
0 |
if (my $new_name = $$translation{$otu_name}) { } |
|
310
|
2 |
10 |
if ($otu eq $original_otu_name) |
|
336
|
0 |
0 |
if ($$self{'taxsets'}{$old[$i]}) { } |
|
358
|
0 |
0 |
unless (Bio::NEXUS::Block::equals($block1, $block2)) |
|
361
|
0 |
0 |
if (keys %$sets1 != keys %$sets2) |
|
363
|
0 |
0 |
unless (defined $$sets2{$setname1} and @{$$sets1{$setname1};} == @{$$sets2{$setname1};}) |
|
373
|
0 |
0 |
unless (${$$sets1{$setname1};}[$i] eq ${$$sets2{$setname1};}[$i]) |
|
404
|
0 |
0 |
if ($set_elements[$i] eq $set_elements[$i + 1]) { } |
|
423
|
0 |
1 |
if $Bio::NEXUS::SetsBlock::AUTOLOAD =~ /DESTROY$/ |
|
433
|
0 |
1 |
if (defined $synonym_for{$Bio::NEXUS::SetsBlock::AUTOLOAD}) { } |