<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Which is great and all -> ther are specific cases where
sub-classing DBI is the right thing to do.'<br>
<br>
However, in this case it appears (from the limited code snippet) that
your class has "using" relationship to DBI, and doesn't have an "isa"
relationship. ie: in it simplest terms, "isa" means that you should
publicly sub-class, where as "using" means that you should implement as
a wrpper class.<br>
<br>
Do you really need to sub-class?<br>
Mathew<br>
<br>
</tt><br>
Jacinta Richardson wrote:
<blockquote cite="mid43EEB55D.7000801@perltraining.com.au" type="cite">
<blockquote type="cite">
<pre wrap="">When I run the driver that uses TestLib::DBConn I get an error:
DBI subclasses 'TestLib::DBConn::db' and ::st are not setup, RootClass
ignored at ./test.pl line 98
Any ideas as to how I could fix this?
</pre>
</blockquote>
<pre wrap=""><!---->
The relevant code you're hitting is as follows:
# handle basic RootClass subclassing:
my $rebless_class = $attr->{RootClass} || ($class ne 'DBI' ? $class : '');
if ($rebless_class) {
no strict 'refs';
if ($attr->{RootClass}) { # explicit attribute (rather than static call)
delete $attr->{RootClass};
DBI::_load_class($rebless_class, 0);
}
unless (@{"$rebless_class\::db::ISA"} && @{"$rebless_class\::st::ISA"}) {
Carp::carp("DBI subclasses '$rebless_class\::db' and ::st are not setup,
RootClass ignored");
$rebless_class = undef;
$class = 'DBI';
}
else {
$dbh->{RootClass} = $rebless_class; # $dbh->STORE called via plain DBI::db
DBI::_set_isa([$rebless_class], 'DBI'); # sets up both '::db' and '::st'
DBI::_rebless($dbh, $rebless_class); # appends '::db'
}
}
sorry about the wrapping. This means that DBI doesn't think that you've
subclassed it correctly.
Further, from the documentation at:
<a class="moz-txt-link-freetext" href="http://cpan.uwinnipeg.ca/htdocs/DBI/DBI.pm.html">http://cpan.uwinnipeg.ca/htdocs/DBI/DBI.pm.html</a> (Subclassing the DBI)
DBI can be subclassed and extended just like any other object oriented module.
Before we talk about how to do that, it's important to be clear about how the
DBI classes and how they work together.
By default $dbh = DBI->connect(...) returns a $dbh blessed into the DBI::db
class. And the $dbh->prepare method returns an $sth blessed into the DBI::st
class (actually it simply changes the last four characters of the calling handle
class to be ::st).
The leading 'DBI' is known as the 'root class' and the extra '::db' or '::st'
are the 'handle type suffixes'. If you want to subclass the DBI you'll need to
put your overriding methods into the appropriate classes. For example, if you
want to use a root class of MySubDBI and override the do(), prepare() and
execute() methods, then your do() and prepare() methods should be in the
MySubDBI::db class and the execute() method should be in the MySubDBI::st class.
So, your changes to connect should be in TestLib::DBConn::db. If you don't want
to make any changes to DBI::st, just subclass it to get the name right.
If you have any other questions that aren't answered by that documentation, feel
free to ask!
J
</pre>
</blockquote>
</body>
</html>