| line |
true |
false |
branch |
|
139
|
0 |
1 |
if $seq_start |
|
140
|
0 |
1 |
if $seq_stop |
|
141
|
0 |
1 |
if $no_redirect |
|
142
|
1 |
0 |
if $redirect |
|
143
|
0 |
1 |
if $strand |
|
146
|
0 |
0 |
if defined $complexity and ($complexity >= 0 and $complexity <= 4) |
|
201
|
0 |
0 |
unless defined $format |
|
202
|
0 |
0 |
if (not defined $mode or $mode eq '') |
|
204
|
0 |
0 |
unless (%params) |
|
210
|
0 |
0 |
unless ($mode eq 'webenv' or defined $uids or defined $query) |
|
213
|
0 |
0 |
if ($query and $query->can('cookie')) { } |
|
|
0 |
0 |
elsif ($query) { } |
|
|
0 |
0 |
elsif ($mode eq 'webenv' and $self->can('cookie')) { } |
|
|
0 |
0 |
elsif ($uids) { } |
|
226
|
0 |
0 |
if (ref($uids) =~ /array/i) |
|
231
|
0 |
0 |
if $seq_start |
|
232
|
0 |
0 |
if $seq_stop |
|
233
|
0 |
0 |
if $strand |
|
234
|
0 |
0 |
if (defined $complexity and $seq_start || $seq_stop || $strand) |
|
235
|
0 |
0 |
if $complexity != 1 and $seq_start || $seq_stop |
|
238
|
0 |
0 |
if $complexity == 0 and $strand == 2 and $format eq 'fasta' |
|
242
|
0 |
0 |
if defined $complexity |
|
243
|
0 |
0 |
unless $mode eq 'batch' |
|
246
|
0 |
0 |
if ($CGILOCATION{$mode}[0] eq 'post') { } |
|
248
|
0 |
0 |
if $self->authentication |
|
308
|
0 |
0 |
unless (ref $query and $query->can('query')) |
|
351
|
1 |
0 |
if (defined $value) |
|
353
|
1 |
0 |
if (defined $FORMATMAP{$value}) { } |
|
382
|
1 |
0 |
if @_ |
|
406
|
0 |
0 |
if (defined $comp) |
|
407
|
0 |
0 |
if not $comp =~ /^\d+$/ or $comp < 0 or $comp > 4 |
|
429
|
0 |
0 |
if ($str) |
|
430
|
0 |
0 |
if not $str =~ /^\d+$/ or $str < 1 or $str > 2 |
|
450
|
0 |
0 |
if ($start) |
|
451
|
0 |
0 |
unless $start =~ /^\d+$/ |
|
471
|
0 |
0 |
if ($stop) |
|
472
|
0 |
0 |
unless $stop =~ /^\d+$/ |
|
498
|
0 |
0 |
if (defined $newdb and ref $newdb and $newdb->isa('Bio::DB::RefSeq')) { } |
|
520
|
1 |
0 |
if $ids =~ /NT_/ |
|
525
|
0 |
0 |
if ($self->redirect_refseq) |
|
526
|
0 |
0 |
if ($ids =~ /N._/) |
|
527
|
0 |
0 |
if $self->verbose >= 0 |
|
567
|
0 |
0 |
if (@_) { } |
|
591
|
0 |
0 |
if (my($warning) = $content =~ m[(.+)]s) |
|
594
|
0 |
0 |
if (my($error) = $content =~ /([^<]+)/) |