Select Code to Download

# to use it you need to create a package named Tables
package Tables;
...
$primarykey = "<PRIMARY KEY>";
%dates = (); # list fields with dates here
%enums = (); # list fields of type enum here

# I'll use the insert sub as an example
sub insert {
...
   # this is hacky
   $table = ${$class . "::table"};
   $primary = ${$class . "::primarykey"};