如何捕获Perl MongoDB驱动程序的连接错误？

发布时间：2020-12-16 06:14:04 所属栏目：大数据来源：网络整理

导读：我正在使用 official Perl driver与mongodb一起工作.要捕获和处理错误,Try :: Tiny和Safe :: Isa模块是 recommended.但是,它不能按预期工作.请检查下面的代码应该根据文档工作,但实际上它不起作用： use MongoDB;use Try::Tiny;use Safe::Isa;my $client;try

我正在使用 official Perl driver与mongodb一起工作.要捕获和处理错误,Try :: Tiny和Safe :: Isa模块是 recommended.但是,它不能按预期工作.请检查下面的代码应该根据文档工作,但实际上它不起作用：

use MongoDB;
use Try::Tiny;
use Safe::Isa;

my $client;

try {
    $client = MongoDB->connect('mongodb://localhost');
    $client->connect;
} catch {
    warn "caught error: $_";
};

my $collection = $client->ns('foo.bar');

try {
  my $all = $collection->find;
} catch {
  warn "2 - caught error: $_";;
};

根据文档自动建立连接,connect()上不会有例外.但是请求也没有例外！我还将$client->连接字符串添加到force连接,但同样没有例外.我在没有安装mongodb并且没有运行mongodb docker容器的机器上运行此脚本,因此必须出现异常.

有人可以解释我做错了什么吗？

解决方法

这是一个微妙的问题. find返回游标对象,但不立即发出查询.从 MongoDB::Collection的文档：

Note,a MongoDB::Cursor object holds the query and does not issue the
query to the server until the `result` method is called on it or until
an iterator method like `next` is called.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!