my @req_prm = $stmt->params ();
   unless (@req_prm == 1 && ref $req_prm[0] eq "SQL::Statement::Param") {
       my $n_req = @req_prm == 1 && ref $req_prm[0] ? $req_prm[0]->num : scalar @req_prm;
       unless ($n_req == (my $nparm = @$params)) {
           my $msg = "You passed $nparm parameters where $n_req required";
           $sth->set_err ($DBI::stderr, $msg);
           return;
           }
       }