*{$GMPN::Database::Table::{"$_::"}{pre_insert}} = sub { ... };