The connected() method of subclasses doesn't get all the attribute that were set by the caller; three of them are deleted first:
DBI.pm: 643 foreach $a (qw(RaiseError PrintError AutoCommit)) { # do the se first 644 next unless exists $attr->{$a}; 645 $dbh->{$a} = delete $attr->{$a}; 646 } 647 foreach $a (keys %$attr) { 648 eval { $dbh->{$a} = $attr->{$a} } or $@ && warn $@; 649 } 650 } 651 652 # if we've been subclassed then let the subclass know that we're connected 653 $dbh->connected($dsn, $user, $pass, $attr) if ref $dbh ne 'DBI:: dbh; I'd rather like to get those attributes in my subclass. Would a patch be accepted? Likewise - and this is more debatable - the $dsn passed to connected() has had the driver prefix stripped off so you can't tell which driver was used. That information would be most valuable to my application. It does seem from reading the documentation as though the expectation is that connected() will get the same arguments as connect(), so would a patch for this be accepted also? -- Peter Scott http://www.perlmedic.com/ http://www.perldebugged.com/