Perl DBIx ::類截斷表

Question

我正在尋找一種方法來截斷與DBIx::Class表，但我無法找到任何網絡上的東西，除了一些建議，如刪除所有行而不是截斷表。 不幸的是，TRUNCATE要快得多，我希望能夠正確地做到這一點。現在，我想我會使用DBI截斷，但它有點缺點。

這有可能以任何方式嗎？

在此先感謝:-)

Answer 1

可以直接在您DBIx ::類模型中的小助手功能執行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 
); 
}