Select Code to Download

seq_1    1    33    gene
seq_1    1    20    exon
...
seq_3    1    55    gene
seq_3    1    30    exon
seq_3    31    50    exon

use Tie::File;

tie my @data, 'Tie::File', "datafile";
print "Rec$_\n$data[$_]\n\n" for (0..$#data);

Rec1
seq_1    1    33    gene
...
seq_3    1    55    gene
seq_3    1    30    part
seq_3    31    50    part

sub _read_record {
  my $self = shift;
...
## Rest of the subroutine...

}

sub get_next_rec
  {
...
## Rest of the subroutine...

}

package Tie::File::GFF;

...
  }

1;

use Tie::File::GFF;

tie my @data, 'Tie::File::GFF', "datafile";
print "Rec$_\n$data[$_]\n\n" for (0..$#data);

Rec1
seq_1    1    33    gene
...
seq_3    1    55    gene
seq_3    1    30    part
seq_3    31    50    part

sub get_next_rec
  {
...
## Rest of the sub

}