Perl：如何验证对“XML::eXistDB::RPC”的成功调用

Question

我正在使用 eXist 数据库编写一个小型 Perl 应用程序，我想知道的是： 我怎样才能看到我的通话

my $eXist = XML::eXistDB::RPC->new( destination=>$eXist_db, repository=>$bank, user=>"admin", password=>"pass" ) ;

是否成功？

谢谢

Answer 1

根据文档：

所有方法都返回一个列表，其中
第一个标量是返回码 (RC)。
当该代码为 0 时，一切顺利。
否则，代码代表
传输错误或异常
（拒绝）由服务器报告
逻辑。无论哪种情况，第二个
返回列表中的标量包含
错误消息。例如，

也许这也适用于构造函数，尝试：

my ($rc,$eXist) = XML::eXistDB::RPC->new( destination=>$eXist_db, repository=>$bank, user=>"admin", password=>"pass" );

现在，如果 $rc != 0 则出现错误。

Answer 2

当对象初始化失败时，将通过 Log::Report 发送消息，因此请挂钩。

仅当程序员忽略设置 rpc 或 destination 参数时才会发生这种情况。 new 构造函数将始终返回一个对象实例。