事件觸發器函式可以用 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();