sub get_database_codes_availables {
if (!$cached) {
my %db=();
for my $n(get_applications_classname) {
my $m=$n.'::get_code';
my $eval_code="
use $n;
&$m;
";
# print STDERR $eval_code,"\n";
my $code=eval($eval_code);
# print STDERR $@ if $@;
$db{$code}=undef if !$@ && defined $code && length($code);
}
@db=sort keys %db;
$cached=1;
}
return @db;
}
}
NAME
blx::xsdsql::dbconn - convert database connection string into specific application form the application is for example dbi
SYNOPSIS
use blx::xsdsql::dbconn
DESCRIPTION
this package is a class - instance it with the method new
FUNCTIONS
new - constructor
PARAMS:
DBTYPE - database type - the class method get_database_availables return valid values for this param
APPLICATION - application name - the class method get_application_avaliables return valid values for this param
get_application_string - return the connection string for an application
the 1^ param is a connection string into the form <user>/<pwd>@<database_name>[:<host>[:<port>]]
PARAMS:
DBTYPE - database type - same as the new constructor
APPLICATION - application name - same as the new constructor
get_applications_classname - return the classes associated to an application
PARAMS: none
this method is a class method
get_application_avaliables - return the application code availables - Ex dbi this method is deprecated - use get_application_availables
PARAMS: none
this method is a class method
get_application_availables - return the application code availables - Ex dbi
PARAMS: none
this method is a class method
get_database_availables - return the database types availables - Ex: pg
PARAMS: none
this method is a class method
get_info - return the info (an hash pointer) for databases and application availables
PARAMS: none
this method is a class method
EXPORT
None by default.
EXPORT_OK
None
AUTHOR
lorenzo.bellotti, <pauseblx@gmail.com>
COPYRIGHT AND LICENSE
Copyright (C) 2011 by lorenzo.bellotti
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 120:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content