| line |
true |
false |
branch |
|
195
|
0 |
7161 |
if (defined $id and defined $ncbitaxid && $ncbitaxid ne $id || defined $objid && $objid ne $id) { } |
|
|
7161 |
0 |
elsif (not defined $id) { } |
|
201
|
6912 |
249 |
if defined $id |
|
202
|
2 |
7159 |
if $ncbitaxid |
|
204
|
0 |
7161 |
if defined $rank |
|
205
|
6910 |
251 |
if defined $name |
|
208
|
0 |
7161 |
if ($commonnames) |
|
209
|
0 |
0 |
unless $commonnames and ref $commonnames eq 'ARRAY' |
|
213
|
3 |
7158 |
if ($commonname) |
|
215
|
3 |
0 |
unless (exists $c_names{$commonname}) |
|
219
|
3 |
7158 |
if @common_names > 0 |
|
221
|
0 |
7161 |
if defined $gcode |
|
222
|
0 |
7161 |
if defined $mitocode |
|
223
|
0 |
7161 |
if defined $createdate |
|
224
|
0 |
7161 |
if defined $updatedate |
|
225
|
0 |
7161 |
if defined $pubdate |
|
226
|
0 |
7161 |
if defined $div |
|
227
|
0 |
7161 |
if defined $dbh |
|
236
|
0 |
7161 |
if defined $parent_id |
|
261
|
0 |
504 |
if @_ |
|
277
|
0 |
504 |
if @_ |
|
293
|
0 |
504 |
if @_ |
|
314
|
252 |
26307 |
if (@_) |
|
317
|
0 |
252 |
unless (ref $db and $db->isa('Bio::DB::Taxonomy')) |
|
320
|
252 |
0 |
if (not $self->{'db_handle'} or $self->{'db_handle'} and $self->{'db_handle'} ne $db) |
|
322
|
252 |
0 |
if $new_self |
|
345
|
303 |
9094 |
if @_ |
|
384
|
190 |
173 |
if ($id) |
|
389
|
57 |
116 |
if ($self->{'_ncbi_tax_id_provided'}) |
|
409
|
0 |
2 |
if (@_) |
|
412
|
0 |
2 |
if (defined $self->{'parent_id'}) |
|
454
|
0 |
506 |
if @_ |
|
471
|
0 |
506 |
if @_ |
|
488
|
0 |
504 |
if @_ |
|
505
|
0 |
504 |
if @_ |
|
522
|
0 |
504 |
if @_ |
|
550
|
25660 |
4500 |
if ($ancestor) |
|
639
|
0 |
20254 |
unless defined $name_class |
|
641
|
7397 |
12857 |
if (@names) |
|
642
|
7160 |
237 |
if ($name_class =~ /scientific|division/i) |
|
666
|
84 |
18812 |
unless $self->name('scientific', @_) |
|
687
|
531 |
106 |
unless $self->name('common', @_) |
|
688
|
531 |
106 |
wantarray ? : |
|
707
|
506 |
0 |
unless $self->name('division', @_) |
|
717
|
0 |
4752 |
unless ref $taxon and $taxon->isa('Bio::Taxon') |
|
718
|
0 |
4752 |
unless $self->id or $self->node_name |
|
720
|
0 |
4752 |
unless (&blessed($db) and $db->isa('Bio::DB::Taxonomy')) |
|
723
|
4504 |
248 |
if $taxon->id |
|
724
|
252 |
4500 |
unless ($db_taxon) |
|
725
|
252 |
0 |
if $taxon->node_name |
|
731
|
252 |
0 |
if ($own_rank eq 'no rank' or $try_rank eq 'no rank' or $own_rank eq $try_rank) |
|
745
|
0 |
252 |
unless ref $taxon and $taxon->isa('Bio::Taxon') |
|
746
|
0 |
252 |
if $taxon eq $self |
|
751
|
248 |
2524 |
if (not $own and $his) |
|
758
|
0 |
252 |
if ($own eq 'no rank' and $his ne 'no rank') |
|
765
|
0 |
0 |
unless (exists $own_cnames{$_}) |
|
791
|
0 |
0 |
if ($self->{'_desc'}{$n->internal_id}) |