sub get_next_rec
  {
    my $self = shift;
    local $/ = $self->{recsep};
    my $fh = $self->{fh};
    $rec = <$fh>;
  }

sub _read_record {
  my $self = shift;

  $self =~ /^(.+)=/;
  my $_caller_pack = $1;
  my $rec;
  if ($_caller_pack ne __PACKAGE__){
    $rec = $self->get_next_rec();
  } else

  { local $/ = $self->{recsep};
    my $fh = $self->{fh};
    $rec = <$fh>;
  }

## Rest of the sub

}