| line |
true |
false |
branch |
|
142
|
14 |
235 |
if (defined $classification and ref $classification eq 'ARRAY' and @{$classification;}) { } |
|
149
|
0 |
249 |
if defined $org |
|
150
|
2 |
247 |
if defined $sp |
|
151
|
0 |
249 |
if defined $var |
|
181
|
250 |
53 |
if (@vals) |
|
182
|
2 |
248 |
if (ref $vals[0] eq 'ARRAY') |
|
191
|
0 |
210 |
if ($name and not $name =~ /$species/i || $name =~ /$genus/i and not $name =~ /$genus $species/i) |
|
194
|
0 |
0 |
if ($name =~ /^$genus $species\s*(.+)/) { } |
|
207
|
40 |
210 |
unless ($taxon->scientific_name) |
|
211
|
248 |
2 |
unless ($taxon->rank) |
|
277
|
11 |
119 |
if ($species) |
|
281
|
61 |
69 |
unless (defined $self->{'_species'}) |
|
284
|
0 |
61 |
unless ($species_taxon) |
|
298
|
0 |
61 |
unless ($root) |
|
304
|
43 |
18 |
if (@spflds > 1 and $root->node_name ne 'Viruses') |
|
311
|
43 |
0 |
if ($spflds[0] =~ /^[A-Z]/) { } |
|
319
|
43 |
0 |
if (@spflds) { } |
|
323
|
2 |
43 |
if $fld =~ /(sp\.|var\.)/ |
|
326
|
2 |
41 |
if @spflds |
|
339
|
0 |
172 |
if ($genus and $genus =~ /$_/i) { } |
|
|
0 |
172 |
elsif ($species =~ /$_/i) { } |
|
350
|
0 |
43 |
if (not $unconv || $sub_species and $species =~ s/^(\w+)\s(\w+)$/$1/) |
|
358
|
43 |
0 |
if $genus |
|
359
|
2 |
41 |
if $sub_species |
|
383
|
64 |
126 |
if ($genus) |
|
386
|
18 |
172 |
unless (defined $self->{'_genus'}) |
|
388
|
18 |
0 |
unless ($genus_taxon) |
|
393
|
18 |
0 |
if $genus_taxon |
|
413
|
6 |
4 |
unless (defined $self->{'_sub_species'}) |
|
415
|
0 |
6 |
if ($ss_taxon) { } |
|
416
|
0 |
0 |
if ($sub) |
|
441
|
5 |
5 |
if $sub |
|
461
|
3 |
0 |
unless (defined $self->{'_variant'}) |
|
463
|
0 |
3 |
if ($var_taxon) { } |
|
464
|
0 |
0 |
if ($var) |
|
475
|
0 |
3 |
if $var |
|
497
|
0 |
108 |
unless (defined $species) |
|
501
|
0 |
108 |
unless defined $genus |
|
506
|
3 |
105 |
if (defined $full and $full =~ /full/i) |
|
508
|
3 |
0 |
if ($ssp) |
|
535
|
0 |
0 |
if $string eq 'sp.' |
|
536
|
0 |
0 |
if $string =~ /strain/ |
|
537
|
0 |
0 |
if $string =~ /^[a-z][\w\s-]+$/i |
|
562
|
11 |
31 |
if @_ |
|
623
|
249 |
1727 |
if (not $self->{'taxon'} or $taxon) |
|
643
|
485 |
739 |
if (not $self->{'tree'} or $tree) |