http://qs321.pair.com?node_id=362574


in reply to Re: Abstracting Class::DBI Database Connection Data
in thread Abstracting Class::DBI Database Connection Data

Greetings hardburn,

I have. Many times. But apparently I'm not smart enough to figure it out. This works:

package MyCDBI;
use base 'Class::DBI::mysql';
__PACKAGE__->connection('dbi:mysql:mydb', 'me', 'mypwd');

[download]

But this doesn't:

package MyCDBI;
use base 'Class::DBI::mysql';
sub db_Main {
  use DBI;
  return DBI->connect('dbi:mysql:mydb', 'me', 'mypwd')
    or die DBI->errstr;
}

[download]

I get the nice error message: Can't locate object "fetch_hash" via package "DBI::st" at Class/DBI/mysql.pm line 65. The calling script only uses MyCDBI and prints a hello world, so there's nothing from that that's causing this. Any suggestions?

gryphon
code('Perl') || die;

Replies are listed 'Best First'.
Re^3: Abstracting Class::DBI Database Connection Data
by dcvr69 (Beadle) on Jun 08, 2004 at 22:20 UTC

    Doesn't db_Main have to return an Ima::DBI compatible handle now, rather then just a plain DBI handle?

    It says so, rather obliquely:

    The preferred method for doing this is to supply your own db_Main() method rather than calling connection(). This method should return a valid database handle, and should ensure it sets the standard attributes described above, preferably by combining $class->_default_attributes() with your own.

    I think the part about a valid database handle is where they mean one derived from Ima::DBI.

    Update:

    If you scan up right above the Dynamic Database Connections / db_Main heading, it says:

    We use the inherited RootClass of DBIx::ContextualFetch from Ima::DBI, and you should be very careful not to change this unless you know what you're doing!

    Maybe someone with a little more knowledge on this than I can provide a working example?

[reply]

      Maybe someone with a little more knowledge on this than I can provide a working example?

      Yes, exactly. I think I get what I need to do, but I most certainly don't have a clue how to do it. If anyone has some working code they'd be willing to share, I would be very grateful.

      gryphon
      code('Perl') || die;

[reply]
        sub db_Main {
    Ima::DBI->connect_cached(@conn_info);
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom