| line |
true |
false |
branch |
|
226
|
0 |
0 |
unless $Bio::Tools::Run::Primer3::OK_FIELD{$attr} |
|
227
|
0 |
0 |
if @_ |
|
261
|
0 |
1 |
if defined $args{'-program'} |
|
263
|
0 |
1 |
if ($args{'-verbose'}) |
|
264
|
1 |
0 |
if ($args{'-seq'}) |
|
271
|
0 |
1 |
if ($args{'-outfile'}) |
|
272
|
0 |
1 |
if ($args{'-path'}) |
|
277
|
0 |
0 |
if ($^O =~ /mswin/i) |
|
301
|
0 |
6 |
if @_ |
|
302
|
0 |
6 |
if $self->{'program_name'} |
|
304
|
0 |
12 |
if ($self->io->exists_exe($_)) |
|
325
|
0 |
5 |
if ($dir) |
|
331
|
4 |
1 |
if $self->{'program_dir'} |
|
333
|
0 |
1 |
if ($ENV{'PRIMER3'}) { } |
|
363
|
0 |
0 |
if (uc $key eq '-SEQ' or uc $key eq '-SEQUENCE') |
|
366
|
0 |
0 |
if (defined $inputarray->[0]) |
|
372
|
0 |
0 |
unless ($self->{'no_param_checks'}) |
|
373
|
0 |
0 |
unless ($Bio::Tools::Run::Primer3::OK_FIELD{$key}) |
|
378
|
0 |
0 |
if (uc $key eq 'INCLUDED_REGION') { } |
|
|
0 |
0 |
elsif (uc $key eq 'PRIMER_MIN_SIZE') { } |
|
|
0 |
0 |
elsif ($key eq 'PRIMER_MAX_SIZE') { } |
|
|
0 |
0 |
elsif (uc $key eq 'SEQUENCE') { } |
|
384
|
0 |
0 |
if ($input =~ /SEQUENCE=(.*)/) |
|
387
|
0 |
0 |
if (not $args{$key}) { } |
|
|
0 |
0 |
elsif (not $args{$key} =~ /\,/) { } |
|
395
|
0 |
0 |
if (exists $args{'PRIMER_MAX_SIZE'}) |
|
396
|
0 |
0 |
unless ($args{'PRIMER_MAX_SIZE'} > $args{'PRIMER_MIN_SIZE'}) |
|
400
|
0 |
0 |
if ($args{$key} < 0) |
|
405
|
0 |
0 |
if ($args{$key} > 35) |
|
409
|
0 |
0 |
unless defined $self->{'seqobject'} |
|
420
|
0 |
0 |
if (uc $array_key eq uc $key) { } |
|
423
|
0 |
0 |
unless ($replaced) |
|
426
|
0 |
0 |
if ($self->{'verbose'}) |
|
450
|
0 |
0 |
unless ($executable and -e $executable) |
|
451
|
0 |
0 |
unless $executable |
|
460
|
0 |
0 |
if ($self->{'verbose'}) |
|
469
|
0 |
0 |
if ($executable =~ /^[^\'\"]+(.+)[^\'\"]+$/) |
|
473
|
0 |
0 |
unless open RESULTS, $executable_command |
|
474
|
0 |
0 |
if ($self->{'_outfilename'}) |
|
482
|
0 |
0 |
unless open OUT, '>' . $self->{'_outfilename'} |
|
487
|
0 |
0 |
if ($self->{'_outfilename'}) |
|
493
|
0 |
0 |
if $_ eq '=' |
|
500
|
0 |
0 |
if ($self->{'_outfilename'}) |
|
537
|
0 |
0 |
unless ($self->{'input_options'}) |
|
538
|
0 |
0 |
if ($required) { } |
|
555
|
0 |
0 |
unless my $exe = $self->executable |
|
556
|
0 |
0 |
unless (defined $self->{'_progversion'}) |
|
559
|
0 |
0 |
if ($string =~ /primer3\s+release\s+([\d\.]+)/) |