view release on metacpan or  search on metacpan

lib/BioX/CLPM/Engine.pm  view on Meta::CPAN

	# UTIL
	sub db_trunc {
		my ( $self ) = @_;
		warn "ENGINE db_trunc() \n";
		$self->sqlexec("truncate table sequences");
		$self->sqlexec("truncate table fragments");
		$self->sqlexec("truncate table final_fragment_masses");
		$self->sqlexec("truncate table run_data");
		$self->sqlexec("truncate table file_masses");
		$self->sqlexec("truncate table results");
		$self->sqlexec("truncate table precursor_masses");
	}

	# UTIL
	sub get_seq {
		my ( $self, $arg_ref ) = @_;
		my $file = $arg_ref->{file} ? $arg_ref->{file} : ''; 
		my $id   = $arg_ref->{id}   ? $arg_ref->{id}   : 0; 
		my $sequence;
		if ( -e $file ) {
			# Guess file format from extension with read_sequence()