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-2016 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