Bio::Graphics::FeatureFile::Iterator - Iterator across a Bio::Graphics::FeatureFile

Bio-Graphics documentation Contained in the Bio-Graphics distribution.

Index

Code Index:

NAME

Top

Bio::Graphics::FeatureFile::Iterator -- Iterator across a Bio::Graphics::FeatureFile

SYNOPSIS

Top

 use Bio::Graphics::FeatureFile;
 my $data  = Bio::Graphics::FeatureFile->new(-file => 'features.txt');
 my $iterator = $data->get_seq_stream;
 while (my $feature = $iterator->next_seq) {
   print $feature->display_id,"\t",$feature->start,"\t",$feature->end,"\n";
 }

DESCRIPTION

Top

This is a Bio::SeqIO-like object that recognizes the next_seq() and next_feature() methods. The two methods are synonymous.

There is also a rewind() method which will start iterating from the beginning again.

SEE ALSO

Top

Bio::Graphics::Panel, Bio::Graphics::Glyph, Bio::Graphics::Feature, Bio::Graphics::FeatureFile

AUTHOR

Top

Lincoln Stein <lstein@cshl.org>.

Copyright (c) 2001 Cold Spring Harbor Laboratory

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See DISCLAIMER.txt for disclaimers of warranty.

Bio-Graphics documentation Contained in the Bio-Graphics distribution. 
package Bio::Graphics::FeatureFile::Iterator;

# $Id: Iterator.pm,v 1.1 2008-12-08 23:18:43 lstein Exp $


sub new {
  my $package = shift;
  return bless {features => shift,
		index    => 0},$package;
}

sub next_seq {
  my $self = shift;
  return unless $self->{features};
  return $self->{features}[$self->{index}++];
}

*next_features = \&next_seq;

sub rewind {
  my $self = shift;
  $self->{index} = 0;
}

1;