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

2023年11月28日 160次阅读

我正在使用
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.
点赞