use strict;

...

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