unless ( $attr->{HandleError} && 
          $attr->{HandleError}->($msg, $drh, $dbh)) 
{
    Carp::croak($msg) if $attr->{RaiseError};
    Carp::carp ($msg) if $attr->{PrintError};
}

##</code><code>##

Carp::croak('Usage: $class->connect([$dsn [,$user [,$passwd [,\%attr]]]])')
    if (ref $old_driver or ($attr and not ref $attr) or ref $pass);