| line |
true |
false |
branch |
|
195
|
0 |
7122 |
if (defined $id and defined $ncbitaxid && $ncbitaxid ne $id || defined $objid && $objid ne $id) { } |
|
|
7122 |
0 |
elsif (not defined $id) { } |
|
201
|
6875 |
247 |
if defined $id |
|
202
|
2 |
7120 |
if $ncbitaxid |
|
204
|
0 |
7122 |
if defined $rank |
|
205
|
6873 |
249 |
if defined $name |
|
208
|
0 |
7122 |
if ($commonnames) |
|
209
|
0 |
0 |
unless $commonnames and ref $commonnames eq 'ARRAY' |
|
213
|
2 |
7120 |
if ($commonname) |
|
215
|
2 |
0 |
unless (exists $c_names{$commonname}) |
|
219
|
2 |
7120 |
if @common_names > 0 |
|
221
|
0 |
7122 |
if defined $gcode |
|
222
|
0 |
7122 |
if defined $mitocode |
|
223
|
0 |
7122 |
if defined $createdate |
|
224
|
0 |
7122 |
if defined $updatedate |
|
225
|
0 |
7122 |
if defined $pubdate |
|
226
|
0 |
7122 |
if defined $div |
|
227
|
0 |
7122 |
if defined $dbh |
|
236
|
0 |
7122 |
if defined $parent_id |
|
261
|
0 |
500 |
if @_ |
|
277
|
0 |
500 |
if @_ |
|
293
|
0 |
500 |
if @_ |
|
314
|
250 |
26163 |
if (@_) |
|
317
|
0 |
250 |
unless (ref $db and $db->isa('Bio::DB::Taxonomy')) |
|
320
|
250 |
0 |
if (not $self->{'db_handle'} or $self->{'db_handle'} and $self->{'db_handle'} ne $db) |
|
322
|
250 |
0 |
if $new_self |
|
345
|
301 |
9047 |
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 |
502 |
if @_ |
|
471
|
0 |
502 |
if @_ |
|
488
|
0 |
500 |
if @_ |
|
505
|
0 |
500 |
if @_ |
|
522
|
0 |
500 |
if @_ |
|
550
|
25548 |
4476 |
if ($ancestor) |
|
639
|
0 |
20142 |
unless defined $name_class |
|
641
|
7357 |
12785 |
if (@names) |
|
642
|
7121 |
236 |
if ($name_class =~ /scientific|division/i) |
|
666
|
80 |
18713 |
unless $self->name('scientific', @_) |
|
687
|
528 |
104 |
unless $self->name('common', @_) |
|
688
|
527 |
105 |
wantarray ? : |
|
707
|
502 |
0 |
unless $self->name('division', @_) |
|
717
|
0 |
4726 |
unless ref $taxon and $taxon->isa('Bio::Taxon') |
|
718
|
0 |
4726 |
unless $self->id or $self->node_name |
|
720
|
0 |
4726 |
unless (&blessed($db) and $db->isa('Bio::DB::Taxonomy')) |
|
723
|
4480 |
246 |
if $taxon->id |
|
724
|
250 |
4476 |
unless ($db_taxon) |
|
725
|
250 |
0 |
if $taxon->node_name |
|
731
|
250 |
0 |
if ($own_rank eq 'no rank' or $try_rank eq 'no rank' or $own_rank eq $try_rank) |
|
745
|
0 |
250 |
unless ref $taxon and $taxon->isa('Bio::Taxon') |
|
746
|
0 |
250 |
if $taxon eq $self |
|
751
|
246 |
2504 |
if (not $own and $his) |
|
758
|
0 |
250 |
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}) |