line |
true |
false |
branch |
148
|
0 |
0 |
unless $Bio::Tools::Primer3::OK_FIELD{$attr} |
149
|
0 |
0 |
if @_ |
170
|
2 |
0 |
if ($args{'-file'}) |
173
|
0 |
2 |
if ($args{'-verbose'}) |
215
|
0 |
1 |
if (@results) { } |
242
|
0 |
14 |
if ($toget > $self->{'maximum_primers_returned'}) { } |
269
|
0 |
350 |
unless $line |
271
|
2 |
348 |
if (uc $return eq 'SEQUENCE') |
275
|
1 |
347 |
if (uc $return eq 'PRIMER_SEQUENCE_ID') |
276
|
0 |
1 |
if ($self->{'seqobject'}) { } |
307
|
0 |
13 |
unless $self->number_of_results |
310
|
2 |
11 |
unless $self->{'next_to_return'} |
311
|
1 |
12 |
if $self->{'next_to_return'} >= $self->number_of_results |
314
|
0 |
12 |
unless do {
$results
}->{'PRIMER_LEFT_SEQUENCE'} |
315
|
0 |
12 |
unless do {
$results
}->{'PRIMER_RIGHT_SEQUENCE'} |
316
|
0 |
12 |
unless $self->{'seqobject'} |
332
|
24 |
552 |
if $key =~ /PRIMER_(LEFT|RIGHT)_SEQUENCE/i |
333
|
95 |
457 |
if ($key =~ /PRIMER_LEFT/i) { } |
|
95 |
362 |
elsif ($key =~ /PRIMER_RIGHT/i) { } |
348
|
214 |
362 |
if $key =~ /PRIMER_(LEFT|RIGHT)/i |
392
|
0 |
348 |
if do {
$$self{'input_options'}
}->{$key} |
399
|
287 |
61 |
if ($tempkey =~ s/_(\d+)//) { } |
|
4 |
57 |
elsif ($tempkey =~ /PRIMER_(RIGHT|LEFT)_SEQUENCE/) { } |
401
|
4 |
283 |
if ($location > $maxlocation) |
405
|
0 |
4 |
if ($location > $maxlocation) |
430
|
0 |
0 |
unless $name |