sql::translator::producer::oracle(3pm) [debian man page]

SQL::Translator::Producer::Oracle(3pm)			User Contributed Perl Documentation		    SQL::Translator::Producer::Oracle(3pm)

NAME

       SQL::Translator::Producer::Oracle - Oracle SQL producer

SYNOPSIS

	 use SQL::Translator;

	 my $t = SQL::Translator->new( parser => '...', producer => 'Oracle' );
	 print $translator->translate( $file );

DESCRIPTION

       Creates an SQL DDL suitable for Oracle.

producer_args
       delay_constraints
	   This option remove the primary key and other key constraints from the CREATE TABLE statement and adds ALTER TABLEs at the end with it.

       quote_field_names
	   Controls whether quotes are being used around column names in generated DDL.

       quote_table_names
	   Controls whether quotes are being used around table, sequence and trigger names in generated DDL.

NOTES

   Autoincremental primary keys
       This producer uses sequences and triggers to autoincrement primary key columns, if necessary. SQLPlus and DBI expect a slightly different
       syntax of CREATE TRIGGER statement. You might have noticed that this producer returns a scalar containing all statements concatenated by
       newlines or an array of single statements depending on the context (scalar, array) it has been called in.

       SQLPlus expects following trigger syntax:

	   CREATE OR REPLACE TRIGGER ai_person_id
	   BEFORE INSERT ON person
	   FOR EACH ROW WHEN (
	    new.id IS NULL OR new.id = 0
	   )
	   BEGIN
	    SELECT sq_person_id.nextval
	    INTO :new.id
	    FROM dual;
	   END;
	   /

       Whereas if you want to create the same trigger using "do" in DBI, you need to omit the last slash:

	   my $dbh = DBI->connect('dbi:Oracle:mysid', 'scott', 'tiger');
	   $dbh->do("
	       CREATE OR REPLACE TRIGGER ai_person_id
	       BEFORE INSERT ON person
	       FOR EACH ROW WHEN (
		new.id IS NULL OR new.id = 0
	       )
	       BEGIN
		SELECT sq_person_id.nextval
		INTO :new.id
		FROM dual;
	       END;
	   ");

       If you call this producer in array context, we expect you want to process the returned array of statements using DBI like "deploy" in
       DBIx::Class::Schema does.

       To get this working we removed the slash in those statements in version 0.09002 of SQL::Translator when called in array context. In scalar
       context the slash will be still there to ensure compatibility with SQLPlus.

CREDITS

       Mad props to Tim Bunce for much of the logic stolen from his "mysql2ora" script.

AUTHORS

       Ken Youens-Clark <kclark@cpan.org>, Alexander Hartmaier <abraxxa@cpan.org>, Fabien Wernli <faxmodem@cpan.org>.

SEE ALSO

       SQL::Translator, DDL::Oracle, mysql2ora.

perl v5.14.2							    2012-01-18				    SQL::Translator::Producer::Oracle(3pm)

SQL::Translator::Parser::SQLite(3pm)			User Contributed Perl Documentation		      SQL::Translator::Parser::SQLite(3pm)

NAME

       SQL::Translator::Parser::SQLite - parser for SQLite

SYNOPSIS

	 use SQL::Translator;
	 use SQL::Translator::Parser::SQLite;

	 my $translator = SQL::Translator->new;
	 $translator->parser("SQL::Translator::Parser::SQLite");

DESCRIPTION

       This is a grammar for parsing CREATE statements for SQLite as described here:

	   http://www.sqlite.org/lang.html

       CREATE INDEX

       sql-statement ::=
	   CREATE [TEMP | TEMPORARY] [UNIQUE] INDEX index-name
	    ON [database-name .] table-name ( column-name [, column-name]* )
	    [ ON CONFLICT conflict-algorithm ]

       column-name ::=
	   name [ ASC | DESC ]

       CREATE TABLE

       sql-command ::=
	   CREATE [TEMP | TEMPORARY] TABLE table-name (
	       column-def [, column-def]*
	       [, constraint]*
	    )

       sql-command ::=
	   CREATE [TEMP | TEMPORARY] TABLE table-name AS select-statement

       column-def ::=
	   name [type] [[CONSTRAINT name] column-constraint]*

       type ::=
	   typename |
	    typename ( number ) |
	    typename ( number , number )

       column-constraint ::=
	   NOT NULL [ conflict-clause ] |
	   PRIMARY KEY [sort-order] [ conflict-clause ] |
	   UNIQUE [ conflict-clause ] |
	   CHECK ( expr ) [ conflict-clause ] |
	   DEFAULT value

       constraint ::=
	   PRIMARY KEY ( name [, name]* ) [ conflict-clause ]|
	   UNIQUE ( name [, name]* ) [ conflict-clause ] |
	   CHECK ( expr ) [ conflict-clause ]

       conflict-clause ::=
	   ON CONFLICT conflict-algorithm

       CREATE TRIGGER

       sql-statement ::=
	   CREATE [TEMP | TEMPORARY] TRIGGER trigger-name [ BEFORE | AFTER ]
	   database-event ON [database-name .] table-name
	   trigger-action

       sql-statement ::=
	   CREATE [TEMP | TEMPORARY] TRIGGER trigger-name INSTEAD OF
	   database-event ON [database-name .] view-name
	   trigger-action

       database-event ::=
	   DELETE |
	   INSERT |
	   UPDATE |
	   UPDATE OF column-list

       trigger-action ::=
	   [ FOR EACH ROW | FOR EACH STATEMENT ] [ WHEN expression ]
	       BEGIN
		   trigger-step ; [ trigger-step ; ]*
	       END

       trigger-step ::=
	   update-statement | insert-statement |
	   delete-statement | select-statement

       CREATE VIEW

       sql-command ::=
	   CREATE [TEMP | TEMPORARY] VIEW view-name AS select-statement

       ON CONFLICT clause

	   conflict-clause ::=
	   ON CONFLICT conflict-algorithm

	   conflict-algorithm ::=
	   ROLLBACK | ABORT | FAIL | IGNORE | REPLACE

       expression

       expr ::=
	   expr binary-op expr |
	   expr like-op expr |
	   unary-op expr |
	   ( expr ) |
	   column-name |
	   table-name . column-name |
	   database-name . table-name . column-name |
	   literal-value |
	   function-name ( expr-list | * ) |
	   expr (+) |
	   expr ISNULL |
	   expr NOTNULL |
	   expr [NOT] BETWEEN expr AND expr |
	   expr [NOT] IN ( value-list ) |
	   expr [NOT] IN ( select-statement ) |
	   ( select-statement ) |
	   CASE [expr] ( WHEN expr THEN expr )+ [ELSE expr] END

       like-op::=
	   LIKE | GLOB | NOT LIKE | NOT GLOB

AUTHOR

       Ken Youens-Clark <kclark@cpan.org>.

SEE ALSO

       perl(1), Parse::RecDescent, SQL::Translator::Schema.

perl v5.14.2							    2012-01-18				      SQL::Translator::Parser::SQLite(3pm)