Commit | Line | Data |
---|---|---|
0f3cc5c0 | 1 | package SQL::Translator::Schema::Constants; |
2 | ||
0f3cc5c0 | 3 | =head1 NAME |
4 | ||
79dbb3a4 | 5 | SQL::Translator::Schema::Constants - constants module |
0f3cc5c0 | 6 | |
7 | =head1 SYNOPSIS | |
8 | ||
79dbb3a4 | 9 | use SQL::Translator::Schema::Constants; |
0f3cc5c0 | 10 | |
11 | $table->add_constraint( | |
12 | name => 'foo', | |
13 | type => PRIMARY_KEY, | |
14 | ); | |
15 | ||
16 | =head1 DESCRIPTION | |
17 | ||
a2bec465 | 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 | |
0f3cc5c0 | 39 | |
40 | =cut | |
41 | ||
42 | use strict; | |
f27f9229 | 43 | use warnings; |
0f3cc5c0 | 44 | use base qw( Exporter ); |
da06ac74 | 45 | use vars qw( @EXPORT $VERSION ); |
0f3cc5c0 | 46 | require Exporter; |
11ad2df9 | 47 | $VERSION = '1.59'; |
0f3cc5c0 | 48 | |
ea93df61 | 49 | @EXPORT = qw[ |
43b9dc7a | 50 | CHECK_C |
51 | FOREIGN_KEY | |
8ff0b2bc | 52 | FULL_TEXT |
531652d6 | 53 | SPATIAL |
43b9dc7a | 54 | NOT_NULL |
8ff0b2bc | 55 | NORMAL |
43b9dc7a | 56 | NULL |
0f3cc5c0 | 57 | PRIMARY_KEY |
43b9dc7a | 58 | UNIQUE |
0f3cc5c0 | 59 | ]; |
60 | ||
43b9dc7a | 61 | # |
62 | # Because "CHECK" is a Perl keyword | |
63 | # | |
64 | use constant CHECK_C => 'CHECK'; | |
65 | ||
8ff0b2bc | 66 | use constant FOREIGN_KEY => 'FOREIGN KEY'; |
43b9dc7a | 67 | |
a562f8d0 | 68 | use constant FULL_TEXT => 'FULLTEXT'; |
8ff0b2bc | 69 | |
531652d6 | 70 | use constant SPATIAL => 'SPATIAL'; |
71 | ||
8ff0b2bc | 72 | use constant NOT_NULL => 'NOT NULL'; |
73 | ||
74 | use constant NORMAL => 'NORMAL'; | |
43b9dc7a | 75 | |
76 | use constant NULL => 'NULL'; | |
77 | ||
8ff0b2bc | 78 | use constant PRIMARY_KEY => 'PRIMARY KEY'; |
43b9dc7a | 79 | |
80 | use constant UNIQUE => 'UNIQUE'; | |
0f3cc5c0 | 81 | |
82 | 1; | |
83 | ||
84 | =pod | |
85 | ||
86 | =head1 AUTHOR | |
87 | ||
c3b0b535 | 88 | Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>. |
0f3cc5c0 | 89 | |
90 | =cut |