事件觸發函數可以使用 PL/Tcl 編寫。PostgreSQL 要求要作為事件觸發器調用的函數，必須聲明為沒有參數且返回類型為 event_trigger 的函數。

來自觸發管理器 (trigger manager) 的資訊會透過以下變數傳遞到函數主體中：

觸發函數的回傳值會被忽略。

這是一個簡單的事件觸發函數範例，它會在每次執行支援的指令時，簡單地引發一個 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();