Front page | perl.dbi.users |
Postings from March 2005
In trying to take your suggesting and embed a DB handle in my own
object, this is what i've come up with. However, a error is being
thrown when DBI is trying to destory the handle which I understand.
What I don't get is how to do this properly.
This may be inappropriate for this forum.
$ cat jj
#!/usr/bin/perl
use strict;
use warnings;
use ii;
my $dbh = ii->dbconnect_new();
__END__
$ cat ii.pm
package ii;
use strict;
use warnings;
use DBI;
use vars qw{ @EXPORT @ISA};
use Exporter;
@ISA = qw{ Exporter DBI::db };
@EXPORT = qw{ &dbconnect_new };
sub dbconnect_new {
my ($pkg, $dbname) = @_;
my $dbh;
$dbh->{dbhandle} = DBI->connect("dbi:Pg:dbname='mydb';host='myhost'");
bless $dbh, $pkg;
}
1;
__END__
$ ./jj
SV = RV(0x810eb70) at 0xbfffdb10
REFCNT = 1
FLAGS = (ROK,READONLY)
RV = 0x8108240
(in cleanup) dbih_getcom handle ii=HASH(0x8108240) is not a DBI handle (has no magic).
--
Brandon