Initial Commit

database/perl/vendor/lib/SQL/Dialects/AnyData.pm

@@ -0,0 +1,162 @@
+package SQL::Dialects::AnyData;
+
+#########################################################################
+#
+# This module is copyright (c), 2001,2005 by Jeff Zucker.
+# This module is copyright (c), 2007-2020 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.414';
+
+use SQL::Dialects::Role;
+
+sub get_config
+{
+    return <<EOC;
+[VALID COMMANDS]
+CREATE
+DROP
+SELECT
+INSERT
+UPDATE
+DELETE
+
+[VALID OPTIONS]
+SELECT_MULTIPLE_TABLES
+SELECT_AGGREGATE_FUNCTIONS
+
+[VALID COMPARISON OPERATORS]
+=
+<>
+<
+<=
+>
+>=
+LIKE
+NOT LIKE
+CLIKE
+NOT CLIKE
+RLIKE
+NOT RLIKE
+IS
+IS NOT
+IN
+NOT IN
+BETWEEN
+NOT BETWEEN
+
+[VALID DATA TYPES]
+CHAR
+VARCHAR
+REAL
+INT
+INTEGER
+BLOB
+TEXT
+
+[RESERVED WORDS]
+INTEGERVAL
+STRING
+REALVAL
+IDENT
+NULLVAL
+PARAM
+OPERATOR
+IS
+AND
+OR
+ERROR
+INSERT
+UPDATE
+SELECT
+DELETE
+DROP
+CREATE
+ALL
+DISTINCT
+WHERE
+ORDER
+ASC
+DESC
+FROM
+INTO
+BY
+VALUES
+SET
+NOT
+TABLE
+CHAR
+VARCHAR
+REAL
+INTEGER
+PRIMARY
+KEY
+BLOB
+TEXT
+EOC
+}
+1;
+
+=pod
+
+=head1 NAME
+
+SQL::Dialects::AnyData
+
+=head1 SYNOPSIS
+
+  use SQL::Dialects::AnyData;
+  $config = SQL::Dialects::AnyData->get_config();
+
+=head1 DESCRIPTION
+
+This package provides the necessary configuration for AnyData SQL.
+
+=head1 FUNCTIONS
+
+=head2 get_config
+
+Returns the configuration for AnyData 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-2020 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