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>
#
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;