在某些部分禁用DBI HandleError

Question

有没有一种方法可以像关闭RaiseError一样，在脚本的某些部分“关闭”Perl中的DBI HandleError属性？

示例：

my $dbh = DBI->connect("DBI:SQLite:dbname=file.db","","",{ PrintError => 0, RaiseError => 0, 
                                                           HandleError => sub{ Log("ERROR: Something failed in db"); exit 1 } }) 
        or die "Couldn't connect";
        
for my $table (@db_tables){
  $dbh->do("delete from $table") 
          or do{ Log("ERROR: Delete failed"); next };

  Log("Table [$table] content was deleted");
}
    
exit 0;

在这里，我不希望HandleError仅仅因为其中一个表的内容不能被删除就终止脚本。我想手动处理这个错误。