...
            # use the parameters the user supplied 
            else {
                require DBI;
                $self->{__DBH}{$name} = DBI->connect(@{ $self->{__DBH_CONFIG}{$name} });   # DBH.pm:42
            }