view release on metacpan or  search on metacpan

lib/CPAN/MetaCurator/Database.pm  view on Meta::CPAN

	my($set)	= $self -> db -> query($sql) || die $self -> db -> error;

	# Return a hashref.

	return ${$set -> hashes}[0];

} # End of read_1_record.

# --------------------------------------------------

sub update_table
{
	my($self, $table_name, $id, $columns)	= @_;
	my($sql)	= "update $table_name set $columns where id = $id";
	my($set)	= $self -> db -> query($sql) || die $self -> db -> error;

	return $set;

} # End of update_table.

# --------------------------------------------------