/usr/local/CPAN/Bio-ConnectDots/Bio/ConnectDots/ConnectorSet/loc2cit.pm

• package Bio::ConnectDots::ConnectorSet::loc2cit
  • parse_entry
• EOF

package Bio::ConnectDots::ConnectorSet::loc2cit;

use strict;
use vars qw(@ISA);
use Bio::ConnectDots::ConnectorSet;
@ISA = qw(Bio::ConnectDots::ConnectorSet);

sub parse_entry {
	my ($self) = @_;
	my $input_fh = $self->input_fh;

	while (<$input_fh>) {
		chomp;
			my ($LocusLink, $pubmed_id) = split /\s+/;
			$self->put_dot('LocusLink',$LocusLink);
			$self->put_dot('PubMed', $pubmed_id);
			return 1;

	}    #end of while
	return undef;
}

1;