CGI::App::Plugin::DBH + variable names

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

In Cgiapp_init I have several DBs defined like
$self->dbh_config('Server1', [ $self->cfg('dsn'), $self->cfg('dbuser'), $self->cfg('dbpass') ] );
when I try
$dbh = $self->dbh($dbName);
where $dbName is 'Server1', it shows the error
must call dbh_config() before calling dbh().
How can I use a variable here to determine databases?

Comment on CGI::App::Plugin::DBH + variable names Select or Download Code

Replies are listed 'Best First'.
Re: CGI::App::Plugin::DBH + variable names by Anonymous Monk on Aug 11, 2009 at 09:29 UTC
Call dbh_config()?	[reply]
Re^2: CGI::App::Plugin::DBH + variable names by Anonymous Monk on Aug 11, 2009 at 09:40 UTC
but when I used <c>$dbh = $self->dbh('Server1') if ( uc($dbName) eq 'Server1' );<c> It works, I don't see the docs use dbh_config in the examples for this.	[reply]
Re^3: CGI::App::Plugin::DBH + variable names by Anonymous Monk on Aug 11, 2009 at 09:45 UTC
?? Module is CGI::Application::Plugin::DBH , not CGI::App::Plugin::DBH It works, I don't see the docs use dbh_config in the examples for this. Look at CGI::Application::Plugin::DBH	[reply]
Re^3: CGI::App::Plugin::DBH + variable names by james2vegas (Chaplain) on Aug 18, 2009 at 18:39 UTC
That code 'works' in that it doesn't do anything since `uc($dbName) eq 'Server1'` is always false.	[reply] [d/l]