| line |
true |
false |
branch |
|
143
|
0 |
1 |
if $lanl_base |
|
144
|
0 |
1 |
if $lanl_map_db |
|
145
|
0 |
1 |
if $lanl_make_search_if |
|
146
|
0 |
1 |
if $lanl_search |
|
148
|
1 |
0 |
unless $self->lanl_base |
|
149
|
1 |
0 |
unless $self->map_db |
|
150
|
1 |
0 |
unless $self->make_search_if |
|
151
|
1 |
0 |
unless $self->search_ |
|
152
|
1 |
0 |
unless $self->url_base_address |
|
194
|
2 |
3 |
if (/mode/) |
|
198
|
2 |
1 |
if (/uids/) |
|
201
|
0 |
2 |
unless ref $quals{$_} eq 'ARRAY' |
|
205
|
1 |
0 |
if (/query/) |
|
208
|
1 |
0 |
unless $quals{$_}->isa('Bio::DB::Query::HIVQuery') |
|
218
|
0 |
2 |
if ($m =~ /single/) |
|
232
|
0 |
2 |
if ($mode =~ /acc/) |
|
248
|
1 |
1 |
if ($mode =~ /gi/) |
|
251
|
1 |
0 |
if ($mode =~ /version/) |
|
254
|
0 |
0 |
if ($mode =~ /query/) |
|
257
|
0 |
0 |
$query->{'_RUN_LEVEL'} ? : |
|
|
0 |
0 |
unless $query->{'_RUN_LEVEL'} == 2 |
|
279
|
0 |
0 |
unless ($self->_session_id) |
|
281
|
0 |
0 |
unless $resp->is_success |
|
283
|
0 |
0 |
unless ($self->_session_id) |
|
285
|
0 |
0 |
unless $self->_session_id |
|
291
|
0 |
0 |
unless $resp->is_success |
|
293
|
0 |
0 |
unless $resp->content =~ /$search_form_re/ |
|
297
|
0 |
0 |
unless ($resp->is_success) |
|
303
|
0 |
0 |
if (/$no_seqs_found_re/) |
|
307
|
0 |
0 |
if (/$too_many_re/) |
|
311
|
0 |
0 |
if (/$tbl_no_join_re/) |
|
315
|
0 |
0 |
if (/$seqs_found_re/) |
|
325
|
0 |
0 |
if $@ |
|
358
|
0 |
0 |
unless $type and $loc |
|
362
|
0 |
0 |
if (/string/) |
|
366
|
0 |
0 |
if (/file/) |
|
368
|
0 |
0 |
unless open my $F, '<', $loc |
|
382
|
0 |
0 |
unless @data |
|
393
|
0 |
0 |
unless ($idkey) = grep(/Accession/i, @cols) |
|
394
|
0 |
0 |
unless $idkey |
|
404
|
0 |
0 |
if (/string/) |
|
408
|
0 |
0 |
if (/file/) |
|
409
|
0 |
0 |
unless open my $F, '>', $loc |
|
442
|
0 |
1 |
$key ? : |
|
449
|
0 |
0 |
if $self->authentication |
|
454
|
0 |
0 |
if $self->retrieval_type =~ /pipeline/ and $^O =~ /^MSWin/ |
|
456
|
0 |
0 |
if ($self->retrieval_type =~ /pipeline/) |
|
467
|
0 |
0 |
if (defined $result) { } |
|
469
|
0 |
0 |
if (not $result) { } |
|
484
|
0 |
0 |
if ($self->retrieval_type =~ /temp/i) |
|
489
|
0 |
0 |
if (not -e $tmpfile or -z $tmpfile or not $resp->is_success) |
|
495
|
0 |
0 |
if ($self->verbose > 0) |
|
496
|
0 |
0 |
unless open my $ERR, '<', $tmpfile |
|
506
|
0 |
0 |
if ($self->retrieval_type =~ /io_string/i) |
|
510
|
0 |
0 |
if (not $resp->is_success or length $$content == 0) |
|
567
|
0 |
0 |
if (defined $tmpfile and $tmpfile ne '') { } |
|
573
|
0 |
0 |
if ($resp->is_error) |
|
595
|
1 |
3 |
if @_ |
|
613
|
1 |
2 |
if @_ |
|
631
|
1 |
2 |
if @_ |
|
650
|
1 |
2 |
if @_ |
|
717
|
0 |
0 |
if @_ |
|
735
|
0 |
0 |
if @_ |