File Coverage

lib/SQL/Admin/Driver/DB2/Keywords.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1              
2             package SQL::Admin::Driver::DB2::Keywords;
3 2     2   2176 use base qw( Exporter );
  2         4  
  2         188  
4              
5 2     2   12 use strict;
  2         5  
  2         69  
6 2     2   13 use warnings;
  2         3  
  2         1166  
7              
8             our $VERSION = v0.5.0;
9              
10             ######################################################################
11              
12             our @EXPORT_OK = (
13             '%RESERVED_KEYWORDS',
14             '%NONRESERVED_KEYWORDS',
15             '%SQL_KEYWORDS',
16             );
17              
18              
19             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
20              
21             ######################################################################
22              
23             our %RESERVED_KEYWORDS = map +( lc $_ => 1 ), (
24             qw( ADD DETERMINISTIC LEAVE RESTART ),
25             qw( AFTER DISALLOW LEFT RESTRICT ),
26             qw( ALIAS DISCONNECT LIKE RESULT ),
27             qw( ALL DISTINCT LINKTYPE RESULT_SET_LOCATOR ),
28             qw( ALLOCATE DO LOCAL RETURN ),
29             qw( ALLOW DOUBLE LOCALE RETURNS ),
30             qw( ALTER DROP LOCATOR REVOKE ),
31             qw( AND DSNHATTR LOCATORS RIGHT ),
32             qw( ANY DSSIZE LOCK ROLLBACK ),
33             qw( APPLICATION DYNAMIC LOCKMAX ROUTINE ),
34             qw( AS EACH LOCKSIZE ROW ),
35             qw( ASSOCIATE EDITPROC LONG ROWS ),
36             qw( ASUTIME ELSE LOOP RRN ),
37             qw( AUDIT ELSEIF MAXVALUE RUN ),
38             qw( AUTHORIZATION ENCODING MICROSECOND SAVEPOINT ),
39             qw( AUX END MICROSECONDS SCHEMA ),
40             qw( AUXILIARY END-EXEC MINUTE SCRATCHPAD ),
41             qw( BEFORE END-EXEC1 MINUTES SECOND ),
42             qw( BEGIN ERASE MINVALUE SECONDS ),
43             qw( BETWEEN ESCAPE MODE SECQTY ),
44             qw( BINARY EXCEPT MODIFIES SECURITY ),
45             qw( BUFFERPOOL EXCEPTION MONTH SELECT ),
46             qw( BY EXCLUDING MONTHS SENSITIVE ),
47             qw( CACHE EXECUTE NEW SET ),
48             qw( CALL EXISTS NEW_TABLE SIGNAL ),
49             qw( CALLED EXIT NO SIMPLE ),
50             qw( CAPTURE EXTERNAL NOCACHE SOME ),
51             qw( CARDINALITY FENCED NOCYCLE SOURCE ),
52             qw( CASCADED FETCH NODENAME SPECIFIC ),
53             qw( CASE FIELDPROC NODENUMBER SQL ),
54             qw( CAST FILE NOMAXVALUE SQLID ),
55             qw( CCSID FINAL NOMINVALUE STANDARD ),
56             qw( CHAR FOR NOORDER START ),
57             qw( CHARACTER FOREIGN NOT STATIC ),
58             qw( CHECK FREE NULL STAY ),
59             qw( CLOSE FROM NULLS STOGROUP ),
60             qw( CLUSTER FULL NUMPARTS STORES ),
61             qw( COLLECTION FUNCTION OBID STYLE ),
62             qw( COLLID GENERAL OF SUBPAGES ),
63             qw( COLUMN GENERATED OLD SUBSTRING ),
64             qw( COMMENT GET OLD_TABLE SYNONYM ),
65             qw( COMMIT GLOBAL ON SYSFUN ),
66             qw( CONCAT GO OPEN SYSIBM ),
67             qw( CONDITION GOTO OPTIMIZATION SYSPROC ),
68             qw( CONNECT GRANT OPTIMIZE SYSTEM ),
69             qw( CONNECTION GRAPHIC OPTION TABLE ),
70             qw( CONSTRAINT GROUP OR TABLESPACE ),
71             qw( CONTAINS HANDLER ORDER THEN ),
72             qw( CONTINUE HAVING OUT TO ),
73             qw( COUNT HOLD OUTER TRANSACTION ),
74             qw( COUNT_BIG HOUR OVERRIDING TRIGGER ),
75             qw( CREATE HOURS PACKAGE TRIM ),
76             qw( CROSS IDENTITY PARAMETER TYPE ),
77             qw( CURRENT IF PART UNDO ),
78             qw( CURRENT_DATE IMMEDIATE PARTITION UNION ),
79             qw( CURRENT_LC_CTYPE IN PATH UNIQUE ),
80             qw( CURRENT_PATH INCLUDING PIECESIZE UNTIL ),
81             qw( CURRENT_SERVER INCREMENT PLAN UPDATE ),
82             qw( CURRENT_TIME INDEX POSITION USAGE ),
83             qw( CURRENT_TIMESTAMP INDICATOR PRECISION USER ),
84             qw( CURRENT_TIMEZONE INHERIT PREPARE USING ),
85             qw( CURRENT_USER INNER PRIMARY VALIDPROC ),
86             qw( CURSOR INOUT PRIQTY VALUES ),
87             qw( CYCLE INSENSITIVE PRIVILEGES VARIABLE ),
88             qw( DATA INSERT PROCEDURE VARIANT ),
89             qw( DATABASE INTEGRITY PROGRAM VCAT ),
90             qw( DAY INTO PSID VIEW ),
91             qw( DAYS IS QUERYNO VOLUMES ),
92             qw( DB2GENERAL ISOBID READ WHEN ),
93             qw( DB2GENRL ISOLATION READS WHERE ),
94             qw( DB2SQL ITERATE RECOVERY WHILE ),
95             qw( DBINFO JAR REFERENCES WITH ),
96             qw( DECLARE JAVA REFERENCING WLM ),
97             qw( DEFAULT JOIN RELEASE WRITE ),
98             qw( DEFAULTS KEY RENAME YEAR ),
99             qw( DEFINITION LABEL REPEAT YEARS ),
100             qw( DELETE LANGUAGE RESET ),
101             qw( DESCRIPTOR LC_CTYPE RESIGNAL ),
102             );
103              
104             our %NONRESERVED_KEYWORDS = map +( $_ => 1 ), (
105             );
106              
107             our %SQL_KEYWORDS = map +( $_ => 1 ), (
108             );
109              
110              
111             ######################################################################
112              
113             package SQL::Admin::Driver::DB2::Keywords;
114              
115             1;
116