| line |
true |
false |
branch |
|
158
|
0 |
0 |
unless ($response->is_success) |
|
192
|
0 |
0 |
unless my $content = $self->submit_sequences($sequences, %args) |
|
201
|
0 |
0 |
if (defined $args{'base'}) |
|
203
|
0 |
0 |
if ($base =~ /^n(uc(leotides?)?)?$/iu) { } |
|
|
0 |
0 |
elsif ($base =~ /^(a(mino( acids?)?)?|aa)$/iu) { } |
|
222
|
0 |
0 |
defined $args{'base'} ? : |
|
249
|
0 |
0 |
unless @results and @tables and @alignments |
|
251
|
0 |
0 |
unless (@results == @tables and @results == @alignments) |
|
274
|
0 |
0 |
unless $$r{'base_type'} eq 'amino acid' |
|
276
|
0 |
0 |
if ($$r{'genome_start'} or $$r{'genome_end'}) |
|
286
|
0 |
0 |
wantarray ? : |
|
297
|
0 |
0 |
unless $tag eq 'a' and $attr{'href'} |
|
298
|
0 |
0 |
unless $attr{'href'} =~ m[/(table|simple_results)\.txt$]u |
|
306
|
0 |
0 |
unless $urls{$table_name} |
|
307
|
0 |
0 |
unless my $table = $self->_request(GET($urls{$table_name})) |
|
318
|
0 |
0 |
if ($seen{$_}++) |
|
319
|
0 |
0 |
/^(start|end)$/u ? : |
|
331
|
0 |
0 |
if $data{'query'} eq $self->_bogus_slug |
|
333
|
0 |
0 |
if $data{'query_sequence'} |
|
340
|
0 |
0 |
@results ? : |
|
387
|
0 |
0 |
defined $_ ? : |
|
390
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if ($$row[0] and $$row[0] =~ /^[A-Za-z]+$/u and not grep({length $_ if defined $_;} @$row[1 .. scalar @$row - 1])) |
|
399
|
0 |
0 |
if grep {not defined $_;} @$row |
|
402
|
0 |
0 |
$_ && $_ eq 'NA' ? : |
|
403
|
0 |
0 |
$_ && /(\d+) \x{2192} (\d+)/u ? : |
|
410
|
0 |
0 |
if @{$table{'rows'};} |
|
415
|
0 |
0 |
unless $$a{'coords'}[0] <=> $$b{'coords'}[0] |
|
437
|
0 |
0 |
unless defined $text |
|
440
|
0 |
0 |
if ($name eq 'b') { } |
|
|
0 |
0 |
elsif ($name eq 'pre') { } |
|
443
|
0 |
0 |
if ($text =~ /^\s*Query\b/mu and $text =~ /^\s*HXB2\b/mu) { } |
|
|
0 |
0 |
elsif ($text =~ /^\s+$/u and $expect_alignment) { } |
|
445
|
0 |
0 |
unless $expect_alignment |
|
455
|
0 |
0 |
if (defined $alignments[-1]) { } |
|
466
|
0 |
0 |
if (defined $_) |
|
470
|
0 |
0 |
@hxb2 ? : |