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}}, CHECK_C, FOREIGN_KEY, FULL_TEXT, SPATIAL, NOT_NULL, NORMAL, NULL, PRIMARY_KEY, UNIQUE, DEFAULT_PARSER_VERSION ],
   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         sqlt_constants => [ qw(CHECK_C FOREIGN_KEY FULL_TEXT SPATIAL NOT_NULL NORMAL NULL PRIMARY_KEY UNIQUE DEFAULT_PARSER_VERSION) ],
   9     }
  10 };
  11
  12 use constant SQLT_FK_CASCADE     => 0;
  13 use constant SQLT_FK_RESTRICT    => 1;
  14 use constant SQLT_FK_SET_NULL    => 2;
  15 use constant SQLT_FK_NO_ACTION   => 3;
  16 use constant SQLT_FK_SET_DEFAULT => 4;
  17
  18 use constant CHECK_C => 'CHECK';
  19 use constant FOREIGN_KEY => 'FOREIGN KEY';
  20 use constant FULL_TEXT => 'FULLTEXT';
  21 use constant SPATIAL => 'SPATIAL';
  22 use constant NOT_NULL => 'NOT NULL';
  23 use constant NORMAL => 'NORMAL';
  24 use constant NULL => 'NULL';
  25 use constant PRIMARY_KEY => 'PRIMARY KEY';
  26 use constant UNIQUE => 'UNIQUE';
  27
  28 use constant DEFAULT_PARSER_VERSION => 30000;
  29
  30 1;