Mysql Perl DBIx:：类截断表

我正在寻找一种使用

DBIx:：Class

截断表的方法，但除了删除所有行而不是截断表之类的建议之外，我在web上找不到任何东西。 不幸的是，

TRUNCATE

要快得多，我希望能正确地执行。现在，我想我将使用

DBI

进行截断，但这有点缺点

这有可能吗

---

提前感谢：-）

您可以使用一个小的帮助函数直接在DBIx:：Class模型中执行

SQL

：

sub _sql_do {
  my ( $self , $sql ) = @_ ;

  return $self->storage->dbh_do(
    sub {
      my ( $storage , $dbh , $sql ) = @_ ;
      my $sth = $dbh->prepare( $sql ) ;
      $sth->execute() ;
    },
    $sql
  );
}

---

没有

截断

。您必须删除所有行。确定吗？多么可悲啊：-(