Branch Coverage

Bio/DB/WebDBSeqI.pm
Criterion Covered Total %
branch 18 138 13.0


line true false branch
119 3 0 unless $ret_type
120 0 3 if $baseaddress
121 0 3 if $params
122 0 3 if $db
123 3 0 if $ret_type
124 3 0 unless defined $delay
130 3 0 unless defined $format and $format ne ''
159 0 0 unless defined $seqio
160 0 0 if ($self->can('complexity') and defined $self->complexity and $self->complexity == 0)
172 0 0 unless @seqs
173 0 0 if (wantarray) { }
191 0 0 unless defined $seqio
192 0 0 if ($self->can('complexity') and defined $self->complexity and $self->complexity == 0)
199 0 0 unless @seqs
200 0 0 if (wantarray) { }
219 0 0 unless defined $seqio
220 0 0 if ($self->can('complexity') and defined $self->complexity and $self->complexity == 0)
227 0 0 unless @seqs
228 0 0 if (wantarray) { }
246 0 0 unless defined $seqio
247 0 0 if ($self->can('complexity') and defined $self->complexity and $self->complexity == 0)
254 0 0 unless @seqs
255 0 0 if (wantarray) { }
393 0 0 if @_
414 2 3 if (defined $value)
436 0 0 if ($key =~ /format/i)
441 0 0 unless $seen
444 0 0 if ($self->isa('Bio::DB::GenBank'))
445 0 0 if $self->seq_start
446 0 0 if $self->seq_stop
447 0 0 if $self->strand
448 0 0 if defined $self->complexity
451 0 0 if $self->authentication
456 0 0 if $self->retrieval_type =~ /pipeline/ and $^O =~ /^MSWin/
458 0 0 if ($self->retrieval_type =~ /pipeline/)
469 0 0 if (defined $result) { }
471 0 0 if (not $result) { }
486 0 0 if ($self->retrieval_type =~ /temp/i)
491 0 0 if (not -e $tmpfile or -z $tmpfile or not $resp->is_success)
498 0 0 if ($self->verbose > 0)
499 0 0 unless open my $ERR, '<', $tmpfile
509 0 0 if ($self->retrieval_type =~ /io_string/i)
513 0 0 if (not $resp->is_success or length $$content == 0)
544 1 2 if @_
565 0 0 unless defined $self->ua and defined $protocol and defined $proxy
567 0 0 if $username and $password
586 0 0 if (defined $u and defined $p)
627 3 0 if (defined $value)
629 0 3 unless ($Bio::DB::WebDBSeqI::RETRIEVAL_TYPES{$value})
652 0 0 if (defined $value)
670 3 1 if (defined $ua and $ua->isa('LWP::UserAgent'))
698 0 0 if (defined $tmpfile and $tmpfile ne '') { }
704 0 0 if ($resp->is_error)
717 0 0 if ($mp and not our $loaded_apache_sp)
718 0 0 $mp == 1 ? :
720 0 0 if $@
727 0 0 unless defined(my $pid = fork)
730 0 0 if (not $pid) { }
735 0 0 if ($ENV{'MOD_PERL'} and my $r = eval { do { 'Apache'->request } })
739 0 0 unless setsid()
758 0 0 if ($child) { }
779 0 0 if ($resp->is_error)
791 0 0 if (defined $io or not exists $self->{'_io'})
792 0 0 unless $io
816 3 1 if @_
856 0 1 if (time - $Bio::DB::WebDBSeqI::LAST_INVOCATION_TIME < $self->delay)
858 0 0 if $self->verbose > 0
877 0 0 exists $ENV{'MOD_PERL_API_VERSION'} && $ENV{'MOD_PERL_API_VERSION'} >= 2 ? :
0 0 $ENV{'MOD_PERL'} ? :