| line |
true |
false |
branch |
|
172
|
18 |
100 |
if $_[0] and $_[0] eq 'Bio::Phylo::IO' or ref $_[0] eq 'Bio::Phylo::IO'
|
|
175
|
0 |
118 |
if (@ARGV)
|
|
182
|
0 |
0 |
unless $key =~ /^-/
|
|
199
|
1 |
116 |
unless @_
|
|
200
|
1 |
115 |
unless $source
|
|
203
|
113 |
2 |
$opts{'-format'} ? :
|
|
284
|
0 |
41 |
if ($_[0] and $_[0] eq 'Bio::Phylo::IO' or ref $_[0] eq 'Bio::Phylo::IO')
|
|
288
|
2 |
39 |
if (not @_ or scalar @_ % 2)
|
|
292
|
1 |
38 |
unless ($opts{'-format'})
|
|
295
|
0 |
38 |
unless ($opts{'-phylo'})
|
|
300
|
37 |
0 |
if ($unparser->can('_to_string')) { }
|
|
305
|
0 |
37 |
if ($opts{'-file'})
|
|
306
|
0 |
0 |
unless open my $fh, '>', $opts{'-file'}
|
|
309
|
1 |
36 |
if ($opts{'-handle'})
|
|
312
|
0 |
1 |
if ($@)
|