From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 8 Sep 2009 19:12:16 +0000 (-0700)
Subject: add DEFAULT_PARSER_VERSION constant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee8e983a54b61a2fe0e961c7861ad52df19961e0;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add DEFAULT_PARSER_VERSION constant
---

diff --git a/lib/SQL/Translator/Constants.pm b/lib/SQL/Translator/Constants.pm
index 6706598..3683f27 100644
--- a/lib/SQL/Translator/Constants.pm
+++ b/lib/SQL/Translator/Constants.pm
@@ -1,11 +1,11 @@
 package SQL::Translator::Constants;
 use DBI qw(:sql_types);
 use Sub::Exporter -setup => {
-    exports => [ @{$DBI::EXPORT_TAGS{sql_types}}, CHECK_C, FOREIGN_KEY, FULL_TEXT, SPATIAL, NOT_NULL, NORMAL, NULL, PRIMARY_KEY, UNIQUE ],
+    exports => [ @{$DBI::EXPORT_TAGS{sql_types}}, CHECK_C, FOREIGN_KEY, FULL_TEXT, SPATIAL, NOT_NULL, NORMAL, NULL, PRIMARY_KEY, UNIQUE, DEFAULT_PARSER_VERSION ],
     groups => {
         sqlt_types => [ @{$DBI::EXPORT_TAGS{sql_types}} ],
         sqlt_fk_actions => [ qw(SQLT_FK_CASCADE SQLT_FK_RESTRICT SQLT_FK_SET_NULL SQLT_FK_NO_ACTION SQLT_FK_SET_DEFAULT) ],
-        sqlt_constants => [ qw(CHECK_C FOREIGN_KEY FULL_TEXT SPATIAL NOT_NULL NORMAL NULL PRIMARY_KEY UNIQUE) ],
+        sqlt_constants => [ qw(CHECK_C FOREIGN_KEY FULL_TEXT SPATIAL NOT_NULL NORMAL NULL PRIMARY_KEY UNIQUE DEFAULT_PARSER_VERSION) ],
     }
 };
 
@@ -25,4 +25,6 @@ use constant NULL => 'NULL';
 use constant PRIMARY_KEY => 'PRIMARY KEY';
 use constant UNIQUE => 'UNIQUE';
 
+use constant DEFAULT_PARSER_VERSION => 30000;
+
 1;