perl - perl 中的继承和默认构造函数

Question

我有以下代码:-

package A;

sub new{
 //constructor for A
}

sub hello{
 print "Hello A";
}

1;

package B;
use base qw(A);

sub hello{
 print "Hello B";
}

1;

我的问题是如何在不为 B 提供构造函数的情况下实例化 B，即我的 $b = B->new()，我需要在 A 中进行哪些更改才能实现此目的。这可能吗？

谢谢。

Answer 1

是的。将其用作A 的新 方法:

sub new {
    my ($cls, @args) = @_;
    # ...
    my $obj = ...;  # populate this
    bless $obj, $cls;
}

关键是当使用B->new时，第一个参数是B(在我的例子中我绑定(bind)到$cls ).因此，如果您使用 $cls 调用 bless，该对象将被赋予正确的包。