SQL::Dialects::Role (3pm)

    package My::SQL::Dialect;

    use SQL::Dialects::Role;

    sub get_config {
        return <<CONFIG;
    [SECTION]
    item1
    item2

    [ANOTHER SECTION]
    item1
    item2
    CONFIG
    }

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 \s-1SYNOPSIS\s0 would come back as...

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

\*(L"dialect()\*(R" in SQL::Parser