Perl / OOP：如何在“ Class A”的构造函数中创建“ Class B”的对象

Question

我有一个带有以下构造函数的Class A：

INDEX

我还有另一个类，LWP :: UserAgent，我想在我的A类中使用。 我可以通过以下方法解决问题：

GTIN-13

但是在这种情况下，我将有1个UserAgent对象，但我希望为我的A类的每个实例提供一个 unique 对象。

Answer 1

然后您需要将该对象构造为属性

use LWP::UserAgent;

sub new {
    my ($class, %args) = @_;

    return bless { %args, lwp => LWP::UserAgent->new }, $class;
}

现在，类A的每个对象都将具有属性lwp自己的LWP::UserAgent对象。

我当然希望实际上可以通过所有必要的错误检查将其写得很好。