为什么回滚方法对DBI句柄不可用?

从 perlfunc :

        do 'stat.pl';

    is just like

        eval `cat stat.pl`;

所以当你 do 'foo.pl' 在当前上下文中执行代码。因为我不知道里面发生了什么 foo.pl 或 Foo.pm 我不能告诉你发生了什么变化。但是,我可以告诉您,它总是在当前上下文中执行,现在在 Foo:: 命名空间。

你这么说,你是路过 'Foo' 作为第一个参数 Foo::connect 或从 Foo->can('connect') . 似乎不知何故,它被传递给了一些认为它是数据库句柄的代码,并告诉该对象 rollback .

我们需要看到foo中的实际代码才能回答这个问题。你可能想读 Subclassing the DBI 从文档中查看如何正确执行此操作。

基本上,您要么需要foo正确地对dbi进行子类化(同样,您需要读取文档),要么需要声明一个connect函数来正确地委托给dbi::connect方法。不过,要小心为OO代码编写producedural包装器。这样的状态很难维持。

我同意阿克塞曼的观点。您可能应该使用

use Foo;
...
$dbh = Foo::connect();

而不是foo->connect();