1SQL::Dialects::Role(3)User Contributed Perl DocumentationSQL::Dialects::Role(3)
2
3
4
6 SQL::Dialects::Role - The role of being a SQL::Dialect
7
9 package My::SQL::Dialect;
10
11 use SQL::Dialects::Role;
12
13 sub get_config {
14 return <<CONFIG;
15 [SECTION]
16 item1
17 item2
18
19 [ANOTHER SECTION]
20 item1
21 item2
22 CONFIG
23 }
24
26 This adds the role of being a SQL::Dialect to your class.
27
28 Requirements
29 You must implement...
30
31 get_config
32
33 my $config = $class->get_config;
34
35 Returns information about the dialect in an INI-like format.
36
37 Implements
38 The role implements...
39
40 get_config_as_hash
41
42 my $config = $class->get_config_as_hash;
43
44 Returns the data represented in get_config() as a hash ref.
45
46 Items will be upper-cased, sections will be lower-cased.
47
48 The example in the SYNOPSIS would come back as...
49
50 {
51 section => {
52 ITEM1 => 1,
53 ITEM2 => 2,
54 },
55 another_section => {
56 ITEM1 => 1,
57 ITEM2 => 2,
58 }
59 }
60
62 This module is
63
64 copyright (c), 2009 by Michael G. Schwern
65 copyright (c), 2009-2020 by Jens Rehsack.
66
67 All rights reserved.
68
69 The module may be freely distributed under the same terms as Perl
70 itself using either the "GPL License" or the "Artistic License" as
71 specified in the Perl README file.
72
73 Jeff can be reached at: jzuckerATcpan.org Jens can be reached at:
74 rehsackATcpan.org or via dbi-devATperl.org
75
77 "dialect()" in SQL::Parser
78
79
80
81perl v5.32.1 2021-01-27 SQL::Dialects::Role(3)