view release on metacpan or  search on metacpan

lib/OBO/Parser/OBOParser.pm  view on Meta::CPAN

sub work {
	my $self = shift;
	if (defined $_[0]) {
		$self->{OBO_FILE} = shift;
	} else {
		croak 'You have to provide an OBO file as input';
	}
	
	open (OBO_FILE, $self->{OBO_FILE}) || croak 'The OBO file (', $self->{OBO_FILE}, ') cannot be opened: ', $!;
	
	$/ = ""; # one paragraph at the time
	chomp(my @chunks = <OBO_FILE>);
	chomp(@chunks);
	close OBO_FILE;

	#
	# Treat OBO file header tags
	#
	my $file_line_number = 0;
	if (defined $chunks[0] && $chunks[0] =~ /^format-version:\s*(.*)/) {