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 use vars qw( @EXPORT $VERSION );
  46 require Exporter;
  47 $VERSION = '1.59';
  48
  49 @EXPORT = qw[
  50     CHECK_C
  51     FOREIGN_KEY
  52     FULL_TEXT
  53     SPATIAL
  54     NOT_NULL
  55     NORMAL
  56     NULL
  57     PRIMARY_KEY
  58     UNIQUE
  59 ];
  60
  61 #
  62 # Because "CHECK" is a Perl keyword
  63 #
  64 use constant CHECK_C => 'CHECK';
  65
  66 use constant FOREIGN_KEY => 'FOREIGN KEY';
  67
  68 use constant FULL_TEXT => 'FULLTEXT';
  69
  70 use constant SPATIAL => 'SPATIAL';
  71
  72 use constant NOT_NULL => 'NOT NULL';
  73
  74 use constant NORMAL => 'NORMAL';
  75
  76 use constant NULL => 'NULL';
  77
  78 use constant PRIMARY_KEY => 'PRIMARY KEY';
  79
  80 use constant UNIQUE => 'UNIQUE';
  81
  82 1;
  83
  84 =pod
  85
  86 =head1 AUTHOR
  87
  88 Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
  89
  90 =cut