my ($self,@args) = @_;
        my $qual = $self->_next_qual(@args);
        return $qual;

	my $qual = next_primary_qual( $_[0], 1 );
	return $qual;

	# print("CSM next_primary_qual!\n");
  my( $self, $as_next_qual ) = @_;
  my ($qual,$seq);
  my $alphabet;
  local $/ = "\n>";

  return unless my $entry = $self->_readline;

  if ($entry eq '>')  {  # very first one
    return unless $entry = $self->_readline;
  }

  	# original: my ($top,$sequence) = $entry =~ /^(.+?)\n([^>]*)/s
  my ($top,$sequence) = $entry =~ /^(.+?)\n([^>]*)/s
    or $self->throw("Can't parse entry [$entry]");
  my ($id,$fulldesc) = $top =~ /^\s*(\S+)\s*(.*)/
    or $self->throw("Can't parse fasta header");
  $id =~ s/^>//;
  	# $sequence =~ s/\s//g; # Remove whitespace
  # for empty sequences we need to know the mol.type
	# no we don't, not for PrimaryQuals because... well just because.
	# $alphabet = $self->alphabet();
	# print("CSM \$alphabet is $alphabet\n");
  if(length($sequence) == 0) {
      if(! defined($alphabet)) {
          # let's default to dna
		# lets not.
		# $alphabet = "dna";
      }
  } else {
      # we don't need it really, so disable
	# you bet we don't need it because PrimaryQual doesn't pay it any mind anyway
	# $alphabet = undef;
  }

  # create the seq object
	$sequence =~ s/\n//g;
  if ($as_next_qual) {
	# print("CSM qual.pm: creating a primaryqual object with $sequence\n");
      $qual = Bio::Seq::PrimaryQual->new(-qual        => $sequence,
					 -id         => $id,
					 -primary_id => $id,
					 -display_id => $id,
					 -desc       => $fulldesc
					 );
  }
  # if there wasn't one before, set the guessed type
	# no, don't.
  	# $self->alphabet($qual->alphabet());
  	# print("CSM next_primary_qual: returning $qual.\n");
  return $qual;

	my ($self,%args) = @_;
	my ($source)  = $self->_rearrange([qw(SOURCE)], %args);
	
	if (!$source || ( ref($source) ne "Bio::Seq::SeqWithQuality" && 
			  ref($source) ne "Bio::Seq::PrimaryQual")) {
	    $self->throw("You must pass a Bio::Seq::SeqWithQuality or a Bio::Seq::PrimaryQual object to write_qual as a parameter named\" source\"");
	}
	my $header = $source->id();
	if (!$header) { $header = "unknown"; }
	my @quals = $source->qual();
	# ::dumpValue(\@quals);
	$self->_print (">$header\n ");
	my (@slice,$max,$length);
	$length = $source->length();
	if ($length eq "DIFFERENT") {
		print("You passed a SeqWithQuality object that contains a sequence and quality of differing lengths. Using the length of the PrimaryQual component of the SeqWithQuality object.");
		$length = $source->qual_obj()->length();
	}
		# print("Printing $header to a file.\n");
	for (my $count = 1; $count<$length; $count+= 50) {
		if ($count+50 > $length) { $max = $length; }
		else { $max = $count+49; }
		my @slice = @{$source->subqual($count,$max)};
		$self->_print (join(' ',@slice), "\n ");
	}

  bioperl-l@bioperl.org                  - General discussion
  http://www.bioperl.org/MailList.shtml  - About the mailing lists

  bioperl-bugs@bio.perl.org
  http://bio.perl.org/bioperl-bugs/

 Title   : write_qual(-source => $source, -header => "some information")
 Usage   : $obj->write_qual(	-source => $source,
				-header => "some information");
 Function: Write out an list of quality values to a fasta-style file.
 Returns : Nothing.
 Args    : Requires: a reference to a SeqWithQuality object or a
	PrimaryQual object as the -source. Optional: information
	for the header.
 Notes   : If no -header is provided, $obj->id() will be used where
	$obj is a reference to either a SeqWithQuality object or a
	PrimaryQual object. If $source->id() fails, ">unknown" will be
	the header. If the SeqWithQuality object has $source->length() of
	"DIFFERENT" (read the pod, luke), write_qual will use the length
	of the PrimaryQual object within the SeqWithQuality object.