| line |
true |
false |
branch |
|
171
|
18 |
100 |
if $_[0] and $_[0] eq 'Bio::Phylo::IO' or ref $_[0] eq 'Bio::Phylo::IO' |
|
174
|
0 |
118 |
if (@ARGV) |
|
181
|
0 |
0 |
unless $key =~ /^-/ |
|
198
|
1 |
116 |
unless @_ |
|
199
|
1 |
115 |
unless $source |
|
202
|
113 |
2 |
$opts{'-format'} ? : |
|
283
|
0 |
41 |
if ($_[0] and $_[0] eq 'Bio::Phylo::IO' or ref $_[0] eq 'Bio::Phylo::IO') |
|
287
|
2 |
39 |
if (not @_ or scalar @_ % 2) |
|
291
|
1 |
38 |
unless ($opts{'-format'}) |
|
294
|
0 |
38 |
unless ($opts{'-phylo'}) |
|
299
|
37 |
0 |
if ($unparser->can('_to_string')) { } |
|
304
|
0 |
37 |
if ($opts{'-file'}) |
|
305
|
0 |
0 |
unless open my $fh, '>', $opts{'-file'} |
|
308
|
1 |
36 |
if ($opts{'-handle'}) |
|
311
|
0 |
1 |
if ($@) |