package SQL::Dialects::ANSI; ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. # This module is copyright (c), 2007-2017 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. # # See below for help (search for SYNOPSIS) ######################################################################### use strict; use warnings FATAL => "all"; use vars qw($VERSION); $VERSION = '1.412'; use SQL::Dialects::Role; sub get_config { return < < <= > >= LIKE NOT LIKE IS IS NOT IN NOT IN BETWEEN NOT BETWEEN [VALID DATA TYPES] CHARACTER CHAR CHARACTER VARYING CHAR VARYING VARCHAR CHARACTER SET NATIONAL CHARACTER NATIONAL CHAR NCHAR NATIONAL CHARACTER VARYING NATIONAL CHAR VARYING NCHAR VARYING BIT BIT VARYING NUMERIC DECIMAL DEC INTEGER INT SMALLINT FLOAT REAL DOUBLE PRECISION DATE TIME TIMESTAMP INTERVAL [RESERVED WORDS] ABSOLUTE ACTION ADD ALL ALLOCATE ALTER AND ANY ARE AS ASC ASSERTION AT AUTHORIZATION AVG BEGIN BETWEEN BIT BIT_LENGTH BOTH BY CASCADE CASCADED CASE CAST CATALOG CHAR CHARACTER CHAR_LENGTH CHARACTER_LENGTH CHECK CLOSE COALESCE COLLATE COLLATION COLUMN COMMIT CONNECT CONNECTION CONSTRAINT CONSTRAINTS CONTINUE CONVERT CORRESPONDING COUNT CREATE CROSS CURRENT CURRENT_DATE CURRENT_TIME CURRENT_TIMESTAMP CURRENT_USER CURSOR DATE DAY DEALLOCATE DEC DECIMAL DECLARE DEFAULT DEFERRABLE DEFERRED DELETE DESC DESCRIBE DESCRIPTOR DIAGNOSTICS DISCONNECT DISTINCT DOMAIN DOUBLE DROP ELSE END END-EXEC ESCAPE EXCEPT EXCEPTION EXEC EXECUTE EXISTS EXTERNAL EXTRACT FALSE FETCH FIRST FLOAT FOR FOREIGN FOUND FROM FULL GET GLOBAL GO GOTO GRANT GROUP HAVING HOUR IDENTITY IMMEDIATE IN INDICATOR INITIALLY INNER INPUT INSENSITIVE INSERT INT INTEGER INTERSECT INTERVAL INTO IS ISOLATION JOIN KEY LANGUAGE LAST LEADING LEFT LEVEL LIKE LOCAL LOWER MATCH MAX MIN MINUTE MODULE MONTH NAMES NATIONAL NATURAL NCHAR NEXT NO NOT NULL NULLIF NUMERIC OCTET_LENGTH OF ON ONLY OPEN OPTION OR ORDER OUTER OUTPUT OVERLAPS PAD PARTIAL POSITION PRECISION PREPARE PRESERVE PRIMARY PRIOR PRIVILEGES PROCEDURE PUBLIC READ REAL REFERENCES RELATIVE RESTRICT REVOKE RIGHT ROLLBACK ROWS SCHEMA SCROLL SECOND SECTION SELECT SESSION SESSION_USER SET SIZE SMALLINT SOME SPACE SQL SQLCODE SQLERROR SQLSTATE SUBSTRING SUM SYSTEM_USER TABLE TEMPORARY THEN TIME TIMESTAMP TIMEZONE_HOUR TIMEZONE_MINUTE TO TRAILING TRANSACTION TRANSLATE TRANSLATION TRIM TRUE UNION UNIQUE UNKNOWN UPDATE UPPER USAGE USER USING VALUE VALUES VARCHAR VARYING VIEW WHEN WHENEVER WHERE WITH WORK WRITE YEAR ZONE EOC } 1; =pod =head1 NAME SQL::Dialects::ANSI =head1 SYNOPSIS use SQL::Dialects::ANSI; $config = SQL::Dialects::ANSI->get_config(); =head1 DESCRIPTION This package provides the necessary configuration for ANSI SQL, as far it's supported. =head1 FUNCTIONS =head2 get_config Returns the configuration for ANSI SQL. The configuration is delivered in ini-style: [VALID COMMANDS] ... [VALID OPTIONS] ... [VALID COMPARISON OPERATORS] ... [VALID DATA TYPES] ... [RESERVED WORDS] ... =head1 AUTHOR & COPYRIGHT This module is copyright (c) 2001,2005 by Jeff Zucker and copyright (c) 2007-2017 by Jens Rehsack. All rights reserved. The module may be freely distributed under the same terms as Perl itself using either the "GPL License" or the "Artistic License" as specified in the Perl README file. Jeff can be reached at: jzuckerATcpan.org Jens can be reached at: rehsackATcpan.org or via dbi-devATperl.org =cut