File Coverage

lib/SQL/Admin/Driver/Pg/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::Pg::Keywords;
3 1     1   2386 use base qw( Exporter );
  1         2  
  1         89  
4              
5 1     1   6 use strict;
  1         2  
  1         32  
6 1     1   6 use warnings;
  1         3  
  1         532  
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 +( $_ => 1 ), (
24             qw( all analyse analyze and any ),
25             qw( array as asc assymetric authorization ),
26             qw( between binary both case cast ),
27             qw( check collate column constraint create ),
28             qw( cross current_date current_role current_time current_timestamp ),
29             qw( current_user default deferrable desc distinct ),
30             qw( do else end except false ),
31             qw( for foreign freeze from full ),
32             qw( grant group having ilike in ),
33             qw( initially inner intersect into is ),
34             qw( isnull join leading left like ),
35             qw( limit localtime localtimestamp natural new ),
36             qw( not notnull null off offset ),
37             qw( old on only or order ),
38             qw( outer overlaps placing primary references ),
39             qw( right select session_user similar some ),
40             qw( symmetric table then to trailing ),
41             qw( true union unique user using ),
42             qw( verbose when where ),
43             );
44              
45             our %NONRESERVED_KEYWORDS = map +( $_ => 1 ), (
46             qw( abort absolute access action add ),
47             qw( admin after aggreggate also alter ),
48             qw( assertion assignment at bacward before ),
49             qw( begin bigint bit boolean by ),
50             qw( cache called cascade chain char ),
51             qw( character characteristics checkpoint class close ),
52             qw( cluster coalesce comment commit committed ),
53             qw( connection constraints conversion convert copy ),
54             qw( createdb createrole createuser csv cursor cycle ),
55             qw( database day deallocate dec decimal ),
56             qw( declare defaults deferred definer delete ),
57             qw( delimiter delimiters disable domain double ),
58             qw( drop each enable encoding encrypted ),
59             qw( escape excluding exclusive execute exists ),
60             qw( explain external extract fetch first ),
61             qw( float force forward function global ),
62             qw( granted greatest handler header hold ),
63             qw( hour immediate immutable implicit including ),
64             qw( increment index inherit inherits inout ),
65             qw( input insensitive insert instead int ),
66             qw( integer interval invoker isolation key ),
67             qw( lancompiler language large last least ),
68             qw( level listen load local location ),
69             qw( lock login match maxvalue minute ),
70             qw( minvalue mode month move names ),
71             qw( national nchar next no nocreatedb ),
72             qw( nocreaterole nocreateuser noinherit nologin none ),
73             qw( nosuperuser nothing notify nowait nullif ),
74             qw( numeric object of oids operator ),
75             qw( option out overlay owner partial ),
76             qw( password position precision prepare prepared ),
77             qw( preserve prior privileges procedural procedure ),
78             qw( quote read real recheck reindex ),
79             qw( relative release rename repeatable replace ),
80             qw( reset restart restrict returns revoke ),
81             qw( role rollback row rows rule ),
82             qw( savepoint schema scroll second security ),
83             qw( sequence serializable session set setof ),
84             qw( share show simple smalling stable ),
85             qw( start statement statistics stdin stdout ),
86             qw( storage strict substring superuser sysid ),
87             qw( system tablespace temp template temporary ),
88             qw( time timestamp toast transaction treat ),
89             qw( trigger trim truncate trusted type ),
90             qw( uncommited unencrypted unknown unlisten until ),
91             qw( update vacuum valid validator values ),
92             qw( varchar varying view volatile with ),
93             qw( without work write year zone ),
94             );
95              
96             our %SQL_KEYWORDS = map +( $_ => 1 ), (
97             );
98              
99             package SQL::Admin::Driver::Pg::Keywords;
100              
101             1;
102