Branch Coverage

Bio/Tools/Primer3.pm
Criterion Covered Total %
branch 34 52 65.3


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