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\.]+)/) |