Re: trying to subclass DBI

Tim, I made the changes you suggested. Here is the code:

-------------------------------
package MySubDBI;

use strict;

use DBI;
use vars qw(@ISA);
@ISA = qw(DBI);

package MySubDBI::dr;
use vars qw(@ISA);
@ISA = qw(DBI::dr);

sub connect {
my ($drh, @args) = @_;
my $dbh = $drh->SUPER::connect(@args)
or return;
$dbh->{private_mysubdbi_test} = 'blabla';
print "test0\n";
return $dbh;
}

package MySubDBI::db;
use vars qw(@ISA);
@ISA = qw(DBI::db);

sub test {
my $dbh = shift;
return $dbh->{private_mysubdbi_test};
}

package MySubDBI::st;
use vars qw(@ISA);
@ISA = qw(DBI::st);

package Main;

my $dbn = "DBI:mysql:database=***:host=***:port=***";

my $dbh = MySubDBI->connect( $dbn, '***', '***' );
if ( $dbh ) { print "connection ok\n" } else { print "connection error\n" }

print 'test1: ', $dbh->{private_mysubdbi_test}, "\n";
print 'test2: ', $dbh->test, "\n";
-------------------------------

But it gives exactly the same result, namely:

connection ok
test1:
test2:
.

Relevant Pages

  • Re: How to use select (select(2)) in Perl?
    ... The assignment has to ... >} occur in a different package from that which you are assigning into. ... as long as use vars continues to work. ... especially in such a way that it was doing the importing from the ...
    (comp.lang.perl.misc)
  • Re: our vs. use vars
    ... > except that use vars is backwards compatable. ... All these code snippets pass strict, and they each set the package ... a "use vars" declaration doesn't extend ...
    (perl.beginners)
  • Re: trying to subclass DBI
    ... The connectmethod needs to be in a MySubDBI::dr package ... > use vars qw; ... > return $dbh; ... > sub test { ...
    (perl.dbi.users)
  • Re: trying to subclass DBI
    ... Tim Bunce wrote: ... > The connectmethod needs to be in a MySubDBI::dr package ... >> use vars qw; ... >> sub test { ...
    (perl.dbi.users)
  • Re: "use strict" in a module
    ... use strict; ... use Exporter; ... use vars qw/@ISA @EXPORT/; ... Global symbol "$x" requires explicit package name at FooPkg.pm ...
    (comp.lang.perl.misc)