DBI сабклассинг

[ocehb]

при использовании сбаклассинга DBI (use base "DBI"), обязательно должны присутствовать модули с суффиксами ::db и ::st с наследованием от DBI::db и DBI::st соответственно.

обращение к DBI методам через SUPER::

package ABC::Base;

use base qw(DBI);

package ABC::Base::db;

use base qw(DBI::db);

sub all_tables ($) {
        my $dbh = shift;
        my $ret = $dbh->SUPER::selectall_arrayref ("SHOW TABLES") or return;
        return map { $_->[0] } @$ret;
}

package ABC::Base::st;

use base qw(DBI::st);

1;

использование:

my $dbh = ABC::Base->connect ("dbi:mysql:base","root","");
my @tables = $dbh->all_tables ();

Comments

[lav14.livejournal.com]

а ты не мог бы про любовь написать,а? А то я очень тебе отвечать хочу, а вот про это не умею...так как нифига в твоих каракулях не понимаю..
даже через SUPER не получается!

[ocehb]

я старый программист, и не знаю слов любви! :)

[lav14.livejournal.com]

тогда вот вам перл.. зашифруйте:
Нажимая на кнопку в лифте, настоящий интернетчик всегда с содроганием ждет, что нужный ему этаж вывалится в новом окошке.

[http://users.livejournal.com/_kleptos_/]

иносказательынй перевод мана dbi как-то контрастирует с тем, что вы обычно освещаете в своих постингах.
что это?

[ocehb]

да час убил на то, чтобы понять, что оба package должны присутствовать, даже пустые.
ну и записал на память.

[http://users.livejournal.com/_kleptos_/]

а, понятно.
хотя

kleptos@localhost ~ $ perl -MDBI -lwe '{package bzz; use base 'DBI'} bzz->connect(qw/dbi:foo:bar baz barney/)';
DBI subclasses 'bzz::db' and ::st are not setup, RootClass ignored at -e line 1

у вас не так?

[ocehb]

да, выдавало, но считал, раз ::st пустой, он не нужен.