In an attempt to update some ancient straight-up DBI methods, e.g., prepare-> and execute->, I'm using a CGI::Application plugin that I've used a hundred times successfully. This time it's returning:

Error executing run mode 'sl': must call dbh_config() before calling dbh(). at [some line].

This is close to the question in this node, but was never answered.

Start by setting up the connection using dbh_config():

use base 'CGI::Application';
use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);

sub cgiapp_init {
    my $self = shift;
    
   # connect to dssubscriber DB
   $self->config_file('/usr/home/[somepath]/conf/subscriber.conf'); # 
+config_file is a C::A::P::C::S method

   my $data_source = sprintf 'DBI:mysql:database=%s;host=%s',
        $self->config_param('mysql.database'),
        $self->config_param('mysql.host');

        $self->dbh_config('subscriber', 
                [$data_source,
                $self->config_param('mysql.username'),
                $self->config_param('mysql.password'),
                { RaiseError => 1 }
                ]);
}
[download]

Here's the sub that uses the connection and throws the error:

sub get_setup {
    my $self = shift;
    my $subscriber_id = shift;    

    my $stmt = 'SELECT * FROM admin_setup WHERE subscriber_id = ?';
    my %setup = % { $self->dbh('subscribers')->selectrow_hashref($stmt
+, undef, $subscriber_id) };
    
    return \%setup;
}
[download]

Data Dump of $self:

'__DBH_CONFIG' => {
                 'subscriber' => [
                                   'DBI:mysql:database=dssubscribers;h
+ost=qs4821.pair.com',
                                   '1045567_6_w',
                                   'jkgda9leUe89',
                                   {
                                     'RaiseError' => 1
                                   }
                                 ]
               },
'__DBH' => {
          'subscriber' => bless( {}, 'DBI::db' )
        }
[download]

I looked at the plugin's code and it looks like this should work:

unless ($self->{__DBH_CONFIG}{$name}){
        __auto_config($self, $name);
        croak "must call dbh_config() before calling dbh()." unless $s
+elf->{__DBH_CONFIG}{$name};
    }
[download]

What am I missing?

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.