1. Manuals
  2. Tumbleweed
  3. perl-SQL-Statement
  4. SQL::Dialects::Role(3pm)

Scroll to navigation

SQL::Dialects::Role(3) User Contributed Perl Documentation SQL::Dialects::Role(3)

NAME

SQL::Dialects::Role - The role of being a SQL::Dialect

SYNOPSIS

    package My::SQL::Dialect;
    use SQL::Dialects::Role;
    sub get_config {
        return <<CONFIG;
    [SECTION]
    item1
    item2
    [ANOTHER SECTION]
    item1
    item2
    CONFIG
    }

DESCRIPTION

This adds the role of being a SQL::Dialect to your class.

Requirements

You must implement...

get_config

    my $config = $class->get_config;

Returns information about the dialect in an INI-like format.

Implements

The role implements...

get_config_as_hash

    my $config = $class->get_config_as_hash;

Returns the data represented in get_config() as a hash ref.

Items will be upper-cased, sections will be lower-cased.

The example in the SYNOPSIS would come back as...

    {
        section => {
            ITEM1       => 1,
            ITEM2       => 2,
        },
        another_section => {
            ITEM1       => 1,
            ITEM2       => 2,
        }
   }

AUTHOR & COPYRIGHT

 This module is
 copyright (c), 2009 by Michael G. Schwern
 copyright (c), 2009-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

SEE ALSO

"dialect()" in SQL::Parser

2020-10-22 perl v5.40.0