| line |
true |
false |
branch |
|
159
|
0 |
0 |
unless ($response->is_success) |
|
193
|
0 |
0 |
unless my $content = $self->submit_sequences($sequences, %args) |
|
202
|
0 |
0 |
if (defined $args{'base'}) |
|
204
|
0 |
0 |
if ($base =~ /^n(uc(leotides?)?)?$/iu) { } |
|
|
0 |
0 |
elsif ($base =~ /^(a(mino( acids?)?)?|aa)$/iu) { } |
|
232
|
0 |
0 |
defined $args{'base'} ? : |
|
250
|
0 |
0 |
unless (@results and @tables and @alignments) |
|
259
|
0 |
0 |
unless (@results == @tables and @results == @alignments) |
|
283
|
0 |
0 |
unless $r->{'base_type'} eq 'amino acid' |
|
285
|
0 |
0 |
if ($r->{'genome_start'} or $r->{'genome_end'}) |
|
295
|
0 |
0 |
wantarray ? : |
|
306
|
0 |
0 |
unless $tag eq 'a' and $attr{'href'} |
|
307
|
0 |
0 |
unless $attr{'href'} =~ m[/(table|simple_results)\.txt$]u |
|
315
|
0 |
0 |
unless $urls{$table_name} |
|
316
|
0 |
0 |
unless my $table = $self->_request(GET($urls{$table_name})) |
|
327
|
0 |
0 |
if ($seen{$_}++) |
|
330
|
0 |
0 |
/^(start|end)$/u ? : |
|
340
|
0 |
0 |
if $data{'query'} eq $self->_bogus_slug |
|
343
|
0 |
0 |
if $data{'query_sequence'} |
|
349
|
0 |
0 |
@results ? : |
|
396
|
0 |
0 |
defined $_ ? : |
|
399
|
0 |
0 |
if ($row->[0] and $row->[0] =~ /^[A-Za-z]+$/u and not grep({length $_ if defined $_;} @$row[1 .. scalar @$row - 1])) |
|
401
|
0 |
0 |
if defined $_ |
|
408
|
0 |
0 |
if grep {not defined $_;} @$row |
|
412
|
0 |
0 |
$_ && $_ eq 'NA' ? : |
|
413
|
0 |
0 |
$_ && /(\d+) \x{2192} (\d+)/u ? : |
|
419
|
0 |
0 |
if @{$table{'rows'};} |
|
426
|
0 |
0 |
unless $Bio::WebService::LANL::SequenceLocator::a->{'coords'}[0] <=> $Bio::WebService::LANL::SequenceLocator::b->{'coords'}[0] |
|
429
|
0 |
0 |
if (@tables > 1) |
|
430
|
0 |
0 |
if ($tables[-1]{'rows'}[0]{'na_from_query_start'} eq "1 \x{2192}" and $tables[-1]{'rows'}[0]{'protein_translation'} eq 'X') { } |
|
457
|
0 |
0 |
unless defined $text |
|
460
|
0 |
0 |
if ($name eq 'b') { } |
|
|
0 |
0 |
elsif ($name eq 'pre') { } |
|
463
|
0 |
0 |
if ($text =~ /^\s*Query\b/mu and $text =~ /^\s*HXB2\b/mu) { } |
|
|
0 |
0 |
elsif ($text =~ /^\s+$/u and $expect_alignment) { } |
|
465
|
0 |
0 |
unless $expect_alignment |
|
475
|
0 |
0 |
if (defined $alignments[-1]) { } |
|
486
|
0 |
0 |
if (defined $_) |
|
490
|
0 |
0 |
@hxb2 ? : |