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.60';
  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