1 package SQL::Translator::Constants;
2 use DBI qw(:sql_types);
3 use Sub::Exporter -setup => {
4 exports => [ @{$DBI::EXPORT_TAGS{sql_types}} ],
6 sqlt_types => [ @{$DBI::EXPORT_TAGS{sql_types}} ],
7 sqlt_fk_actions => [ qw(SQLT_FK_CASCADE SQLT_FK_RESTRICT SQLT_FK_SET_NULL SQLT_FK_NO_ACTION SQLT_FK_SET_DEFAULT) ],
11 use constant SQLT_FK_CASCADE => 0;
12 use constant SQLT_FK_RESTRICT => 1;
13 use constant SQLT_FK_SET_NULL => 2;
14 use constant SQLT_FK_NO_ACTION => 3;
15 use constant SQLT_FK_SET_DEFAULT => 4;