1 package SQL::Translator::Schema::Constants;
3 # ----------------------------------------------------------------------
4 # Copyright (C) 2002-2009 SQLFairy Authors
6 # This program is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU General Public License as
8 # published by the Free Software Foundation; version 2.
10 # This program is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 # General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 # -------------------------------------------------------------------
23 SQL::Translator::Schema::Constants - constants module
27 use SQL::Translator::Schema::Constants;
29 $table->add_constraint(
36 This module exports the following constants for Schema features;
61 use base qw( Exporter );
62 use vars qw( @EXPORT $VERSION );
79 # Because "CHECK" is a Perl keyword
81 use constant CHECK_C => 'CHECK';
83 use constant FOREIGN_KEY => 'FOREIGN KEY';
85 use constant FULL_TEXT => 'FULLTEXT';
87 use constant SPATIAL => 'SPATIAL';
89 use constant NOT_NULL => 'NOT NULL';
91 use constant NORMAL => 'NORMAL';
93 use constant NULL => 'NULL';
95 use constant PRIMARY_KEY => 'PRIMARY KEY';
97 use constant UNIQUE => 'UNIQUE';
101 # ----------------------------------------------------------------------
107 Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.