Branch Coverage

blib/lib/Bio/DB/SwissProt.pm
Criterion Covered Total %
branch 20 44 45.4


line true false branch
182 0 3 if ($format and not $format =~ /(swiss)|(fasta)/i)
186 3 0 unless $servertype
189 0 3 if ($hostlocation)
288 0 5 unless (defined $uids)
304 3 2 if (ref($uids) =~ /ARRAY/i) { }
366 3 57 if (defined $servertype and $servertype ne '')
369 0 3 unless $HOSTS{$servertype}
396 0 5 unless defined $servertype
399 0 5 if (defined $location and $location ne '')
401 0 0 unless ($hosts{$location})
426 0 5 unless (defined $location and defined $servertype)
450 16 15 if (defined $value)
451 0 16 if ($self->servertype =~ /expasy/) { }
16 0 elsif ($self->servertype =~ /ebi/) { }
452 0 0 if ($value =~ /sprot/ or $value =~ /swiss/) { }
0 0 elsif ($value =~ /^fa/) { }
461 16 0 if ($value =~ /sprot/ or $value =~ /swiss/) { }
0 0 elsif ($value =~ /^fa/) { }
514 0 2 unless exists $ID_MAPPING_DATABASES{$_}
516 1 0 ref $ids ? :
533 0 1 if ($response->is_success) { }
536 0 0 if $id_from eq 'From'