| Server IP : 103.119.228.120 / Your IP : 18.116.14.12 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/share/perl5/SQL/Dialects/ |
Upload File : |
package SQL::Dialects::Role;
#########################################################################
#
# This module is copyright (c), 2009 by Michael G. Schwern
# This module is copyright (c), 2009-2016 by Jens Rehsack.
# All rights reserved.
#
# It may be freely distributed under the same terms as Perl itself.
#
# See below for help (search for SYNOPSIS)
#########################################################################
use strict;
use warnings FATAL => "all";
use base qw(Exporter);
our @EXPORT = qw(get_config_as_hash);
our $VERSION = '1.410';
sub get_config_as_hash
{
my $class = $_[0];
my @data = split( m/\n/, $class->get_config() );
my %config;
my $feature;
for (@data)
{
chomp;
s/^\s+//;
s/\s+$//;
next unless ($_);
if (/^\[(.*)\]$/i)
{
$feature = lc $1;
$feature =~ s/\s+/_/g;
next;
}
my $newopt = uc $_;
$newopt =~ s/\s+/ /g;
$config{$feature}{$newopt} = 1;
}
return \%config;
}
=head1 NAME
SQL::Dialects::Role - The role of being a SQL::Dialect
=head1 SYNOPSIS
package My::SQL::Dialect;
use SQL::Dialects::Role;
sub get_config {
return <<CONFIG;
[SECTION]
item1
item2
[ANOTHER SECTION]
item1
item2
CONFIG
}
=head1 DESCRIPTION
This adds the role of being a SQL::Dialect to your class.
=head2 Requirements
You must implement...
=head3 get_config
my $config = $class->get_config;
Returns information about the dialect in an INI-like format.
=head2 Implements
The role implements...
=head3 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,
}
}
=head1 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
=head1 SEE ALSO
L<SQL::Parser/dialect()>
=cut