所以我在 perl 上有点菜鸟,但本质上这段代码是我模型的一部分(插入到 sql 数据库中)。
运行此代码时出现的错误是“不能使用未定义的值作为 HASH 引用”。
我认为对此的明确解决方案是定义一个包含名为 host_id 的密钥的哈希。
我将如何处理或修复我的代码。
####delete subfunctions
######
sub deletehostservices
{
my ($self, $host_service_id) = @_;
my $host_id = $self->pg->db->query('DELETE from hosts_services where hosts_services_id = ? returning host_id', $host_service_id)->hash->{host_id};
return $host_id;
}