Clean up option parsing and identifier quoting in Producer::PostgreSQL
[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Schema / Constants.pm
1 package SQL::Translator::Schema::Constants;
2
3 =head1 NAME
4
5 SQL::Translator::Schema::Constants - constants module
6
7 =head1 SYNOPSIS
8
9   use SQL::Translator::Schema::Constants;
10
11   $table->add_constraint(
12       name => 'foo',
13       type => PRIMARY_KEY,
14   );
15
16 =head1 DESCRIPTION
17
18 This module exports the following constants for Schema features;
19
20 =over 4
21
22 =item CHECK_C
23
24 =item FOREIGN_KEY
25
26 =item FULL_TEXT
27
28 =item NOT_NULL
29
30 =item NORMAL
31
32 =item NULL
33
34 =item PRIMARY_KEY
35
36 =item UNIQUE
37
38 =back
39
40 =cut
41
42 use strict;
43 use warnings;
44 use base qw( Exporter );
45 require Exporter;
46 our $VERSION = '1.59';
47
48 our @EXPORT = qw[
49     CHECK_C
50     FOREIGN_KEY
51     FULL_TEXT
52     SPATIAL
53     NOT_NULL
54     NORMAL
55     NULL
56     PRIMARY_KEY
57     UNIQUE
58 ];
59
60 #
61 # Because "CHECK" is a Perl keyword
62 #
63 use constant CHECK_C => 'CHECK';
64
65 use constant FOREIGN_KEY => 'FOREIGN KEY';
66
67 use constant FULL_TEXT => 'FULLTEXT';
68
69 use constant SPATIAL => 'SPATIAL';
70
71 use constant NOT_NULL => 'NOT NULL';
72
73 use constant NORMAL => 'NORMAL';
74
75 use constant NULL => 'NULL';
76
77 use constant PRIMARY_KEY => 'PRIMARY KEY';
78
79 use constant UNIQUE => 'UNIQUE';
80
81 1;
82
83 =pod
84
85 =head1 AUTHOR
86
87 Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
88
89 =cut