事件触发器函数可以用 PL/Tcl 编写。PostgreSQL 要求声明一个要作为事件触发器调用的函数，该函数必须是不带参数且返回类型为 event_trigger 的函数。

来自触发器管理器的信息以以下变量的形式传递到函数体中

触发器函数的返回值将被忽略。

这是一个小型的事件触发器函数示例，它在每次执行支持的命令时都会简单地引发一个 NOTICE 消息

CREATE OR REPLACE FUNCTION tclsnitch() RETURNS event_trigger AS $$
  elog NOTICE "tclsnitch: $TG_event $TG_tag"
$$ LANGUAGE pltcl;

CREATE EVENT TRIGGER tcl_a_snitch ON ddl_command_start EXECUTE FUNCTION tclsnitch();