*{$GMPN::Database::Table::{"$_::"}{pre_insert}} = sub { ... }; [download]
Makeshifts last the longest.
In reply to (blooper) by Aristotle in thread A Perl aptitude test by Jonathan