From: Ken Youens-Clark Date: Wed, 15 Oct 2003 18:59:53 +0000 (+0000) Subject: Notes about DDL::Oracle. X-Git-Tag: v0.04~66 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b2be65ae4f5f3425702d44c2cac578e95cfebb8;p=dbsrgits%2FSQL-Translator.git Notes about DDL::Oracle. --- diff --git a/lib/SQL/Translator/Parser/Oracle.pm b/lib/SQL/Translator/Parser/Oracle.pm index 2979865..8d655bd 100644 --- a/lib/SQL/Translator/Parser/Oracle.pm +++ b/lib/SQL/Translator/Parser/Oracle.pm @@ -1,7 +1,7 @@ package SQL::Translator::Parser::Oracle; # ------------------------------------------------------------------- -# $Id: Oracle.pm,v 1.13 2003-09-26 21:04:07 kycl4rk Exp $ +# $Id: Oracle.pm,v 1.14 2003-10-15 18:59:53 kycl4rk Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Ken Y. Clark # @@ -91,11 +91,14 @@ constrnt_state [ENABLE|DISABLE] [VALIDATE|NOVALIDATE] [EXCEPTIONS INTO [schema.]table] +Note that probably not all of the above syntax is supported, but the grammar +was altered to better handle the syntax created by DDL::Oracle. + =cut use strict; use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.14 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -602,6 +605,6 @@ Ken Y. Clark Ekclark@cpan.orgE. =head1 SEE ALSO -perl(1), Parse::RecDescent. +SQL::Translator, Parse::RecDescent, DDL::Oracle. =cut