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