view release on metacpan or  search on metacpan

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

	my($file_name)	= File::Spec -> catfile($self -> home_path, $self -> tiddlers_path);
	my($data)		= join('', read_lines($file_name, 'UTF-8') );

	return from_json $data;

} # End of read_tiddlers_file.

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

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.

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