使用DBIx :: Class :: ResultSet的find_or_create方法时如何避免竞争条件？

use DBIx::Class::ResultSet;

# 创建一个数据库连接
my $dbh = DBI->connect(
    'dbi:SQLite:database.db',
    '',
    '',
    {
        RaiseError => 1,
        AutoCommit => 0,
    }
);

# 创建一个表
my $class = 'MyClass';
my $id_col = $class->get_db_column('id');
my $data_col = $class->get_db_column('data');
$dbh->do(
    "CREATE TABLE $class (id INTEGER PRIMARY KEY, data TEXT)"
);

# 插入一条记录
my $obj = $class->new({
    id => 1,
    data => 'example data',
});

# 使用互斥锁来确保线程安全
my $mutex = $class->get_mutex($dbh);

# 使用 find_or_create_by_id 方法来避免竞争条件
my $result_set = $class->find_or_create_by_id(
    $dbh,
    $id_col,
    $obj->id
);

# 获取结果集
my $rows = $result_set->all;

# 提交事务
$dbh->commit;