154 lines
1.9 KiB
Perl
154 lines
1.9 KiB
Perl
package SQL::Dialects::CSV;
|
|
|
|
#########################################################################
|
|
#
|
|
# 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 COMPARISON OPERATORS]
|
|
=
|
|
<>
|
|
<
|
|
<=
|
|
>
|
|
>=
|
|
LIKE
|
|
CLIKE
|
|
IS
|
|
IS NOT
|
|
IN
|
|
NOT IN
|
|
BETWEEN
|
|
NOT BETWEEN
|
|
|
|
[VALID DATA TYPES]
|
|
CHAR
|
|
VARCHAR
|
|
REAL
|
|
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::CSV
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use SQL::Dialects::CSV;
|
|
$config = SQL::Dialects::CSV->get_config();
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This package provides the necessary configuration for CSV SQL.
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 get_config
|
|
|
|
Returns the configuration for CSV 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
|