view release on metacpan or  search on metacpan

lib/Bio/ConnectDots/DotTable.pm  view on Meta::CPAN

		}
		$entry .= "</row>\n";
		print OUT $entry;
		$linenum++;			
	}

	print OUT "</DotTable>\n";
	close(OUT);	
}

sub _encode() {
	my ($string) = @_;
	$string = encode_entities($string);
	$string =~ s/\'/&apos;/g;
	return $string;
}

1;