Handle ALTER TABLE ... ADD CONSTRAINT in Parser::Oracle

diff --git a/Changes b/Changes
index d5afb23..1a6b2b5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -7,6 +7,7 @@ Changes for SQL::Translator
  * Fixes for parsing and producing identifiers and values that need
    quoting and escaping for SQLite, MySQL, PostgreSQL, SQLServer and
    Oracle (RT#90700, RT#31034)
+ * Add support for ALTER TABLE ... ADD CONSTRAINT to Oracle parser
 
 0.11020 2014-09-02
 

diff --git a/lib/SQL/Translator/Parser/Oracle.pm b/lib/SQL/Translator/Parser/Oracle.pm
index 2f03d67..d5c1b29 100644 (file)
--- a/lib/SQL/Translator/Parser/Oracle.pm
+++ b/lib/SQL/Translator/Parser/Oracle.pm
@@ -123,6 +123,13 @@ statement : remark
     | drop
     | <error>
 
+alter: /alter/i TABLE table_name /add/i table_constraint ';'
+    {
+        my $constraint = $item{table_constraint};
+        $constraint->{type} = $constraint->{constraint_type};
+        push @{$tables{$item{table_name}}{constraints}}, $constraint;
+    }
+
 alter : /alter/i WORD /[^;]+/ ';'
     { @table_comments = () }