| 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 ($@)
|