lib/SQL/Translator/Constants.pm

   1 package SQL::Translator::Constants;
   2 use DBI qw(:sql_types);
   3 use Sub::Exporter -setup => {
   4     exports => [ @{$DBI::EXPORT_TAGS{sql_types}} ],
   5     groups => {
   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) ],
   8     }
   9 };
  10
  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;
  16
  17 1;