| 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'} ? : |