为什么$class->SUPER::new在使用多重继承时不调用所有父类的构造函数？

Question

我正在尝试在 Perl 中使用多重继承，但我不知道如何从子构造函数中调用多个父构造函数。

下午：

package A;
use Carp qw (croak);
use strict;
use warnings;

sub new {
    my $class = shift;
    print "This is A new\n";
    my $self->{DEV_TYPE} = shift || "A";
    bless($self, $class);
    return $self;
}

sub a_func{
    print "This is A func\n";
}

1;

下午：

package B;
use Carp qw (croak);
use strict;
use warnings;

sub new {
    my $class = shift;
    print "This is B new\n";
    my $self->{DEV_TYPE} = shift || "B";
    bless($self, $class);
    return $self;
}

sub b_func{
    print "This is B func\n";
}

1;

下午：

package C;
use Carp qw (croak);
use strict;
use warnings;
eval "use A";
die $@ if $@;
eval "use B";
die $@ if $@;
our @ISA = ("A","B");

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    print "This is C new\n";
    $self->{DEV_TYPE} = shift || "C";
    bless($self, $class);
    return $self;
}

sub c_func{
    print "This is C func\n";
}

1;

在C::new 中，$class->SUPER::new 不会调用 B 的构造函数。如果我使用 $class->B::new(@_); 显式调用它，则会收到错误消息

在 C.pm 中无法通过包“B”定位对象方法“new”

我做错了什么？

Answer 1

$class->SUPER::new 总是调用A::new，因为在@ISA 中A 在B 之前。请参阅 perlobj 中的method resolution order：

当一个类有多个父类时，方法查找顺序变得更加复杂。

默认情况下，Perl 对方法进行深度优先从左到右的搜索。这意味着它从@ISA 数组中的第一个父项开始，然后搜索其所有父项、祖父母等。如果找不到该方法，则转到原始类的@ISA 数组中的下一个父项并从那里搜索。

这意味着$class->SUPER::new 只会调用其中一个父构造函数。如果您在两个父类中都有需要从子类运行的初始化逻辑，请将其移动到单独的方法中，如this post 中所述。

---

当您使用$class->B::new 显式调用B::new 时，您会得到

在 C.pm 中无法通过包“B”定位对象方法“new”

因为use B 正在加载core module B 而不是您的模块。你应该重命名你的模块。

---

请注意，最好使用parent pragma 而不是手动设置@ISA，例如

use parent qw(Parent1 Parent2);

parent 负责加载父模块，因此您可以删除关联的 use 语句（顺便说一下，您不应该是 evaling）。