← Back to branch summary

~ubuntu-branches/ubuntu/precise/bioperl/precise

« back to all changes in this revision

Viewing changes to Bio/Tools/Primer3.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ilya Barygin
  • Date: 2010-01-27 22:48:22 UTC
  • mfrom: (3.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100127224822-ebot4qbrjxcv38au
Tags: 1.6.1-1ubuntu1
* Merge from Debian testing, remaining changes:
  - disable tests, they produce a FTBFS trying to access the network 
    during run.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/Tools/Primer3.pm
1
 
# $Id: Primer3.pm 14772 2008-07-30 19:01:52Z cjfields $
 
1
# $Id: Primer3.pm 16123 2009-09-17 12:57:27Z cjfields $
2
2
#
3
3
# BioPerl module for Bio::Tools::Primer3
4
4
#
81
81
  bioperl-l@bioperl.org                  - General discussion
82
82
  http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
83
83
 
 
84
=head2 Support 
 
85
 
 
86
Please direct usage questions or support issues to the mailing list:
 
87
 
 
88
I<bioperl-l@bioperl.org>
 
89
 
 
90
rather than to the module maintainer directly. Many experienced and 
 
91
reponsive experts will be able look at the problem and quickly 
 
92
address it. Please include a thorough description of the problem 
 
93
with code and data examples if at all possible.
 
94
 
84
95
=head2 Reporting Bugs
85
96
 
86
97
Report bugs to the Bioperl bug tracking system to help us keep track
298
309
          if (! $self->number_of_results);
299
310
 
300
311
        $self->{'next_to_return'} = 0 unless ($self->{'next_to_return'});
301
 
        return if ($self->{'next_to_return'} >= $self->{'maximum_primers_returned'});
 
312
        return if ($self->{'next_to_return'} >= $self->number_of_results);
302
313
        my $results = $self->primer_results($self->{'next_to_return'});
303
314
 
304
315
        $self->throw("No left primer sequence") unless (${$results}{'PRIMER_LEFT_SEQUENCE'});