X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FConstants.pm;h=747e226a48dd445a320f9de0d88f3ae2534f5042;hb=761fa6211becef3a2b10c0f0daf28c7c9cd63842;hp=15799df391775894a1941d0abf2ee323a35c9fcd;hpb=0f3cc5c0b8515724a77c0cdc7b816f41ca5f0aa0;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Schema/Constants.pm b/lib/SQL/Translator/Schema/Constants.pm
index 15799df..747e226 100644
--- a/lib/SQL/Translator/Schema/Constants.pm
+++ b/lib/SQL/Translator/Schema/Constants.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Schema::Constants;
 
 # ----------------------------------------------------------------------
-# $Id: Constants.pm,v 1.1 2003-05-03 04:07:09 kycl4rk Exp $
+# $Id: Constants.pm,v 1.4 2003-06-06 22:34:00 kycl4rk Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -43,13 +43,37 @@ use strict;
 use base qw( Exporter );
 use vars qw( @EXPORT $VERSION );
 require Exporter;
-$VERSION = (qw$Revision: 1.1 $)[-1];
+$VERSION = (qw$Revision: 1.4 $)[-1];
 
 @EXPORT = qw[ 
+    CHECK_C
+    FOREIGN_KEY
+    FULL_TEXT
+    NOT_NULL
+    NORMAL
+    NULL
     PRIMARY_KEY
+    UNIQUE
 ];
 
-use constant PRIMARY_KEY => 'primary_key';
+#
+# Because "CHECK" is a Perl keyword
+#
+use constant CHECK_C => 'CHECK';
+
+use constant FOREIGN_KEY => 'FOREIGN KEY';
+
+use constant FULL_TEXT => 'FULLTEXT';
+
+use constant NOT_NULL => 'NOT NULL';
+
+use constant NORMAL => 'NORMAL';
+
+use constant NULL => 'NULL';
+
+use constant PRIMARY_KEY => 'PRIMARY KEY';
+
+use constant UNIQUE => 'UNIQUE';
 
 1;