Perl多继承场景下字符串化重载方法选择错误如何解决

问题原因 #

• Perl的方法查找（包括重载触发的魔术方法）始终基于对象实际所属类的继承链，和当前执行的子函数所属的包无关。你显式调用$self->Right::perform只是指定执行Right包下的perform子函数，传入的$self仍然是Multi类的实例。
• Multi类的继承顺序是Left在前、Right在后，Perl默认的深度优先左序查找规则下，查找""重载时会优先匹配到Left的实现，不会继续查找Right的重载。
• 同时两个基类存在同名的value方法，未显式限定的情况下调用也会优先匹配到Left的value实现，取值错误。

解决方案 #

方案1：抽取公共方法+显式限定调用（推荐） #

将基类的字符串化逻辑抽为独立普通方法，所有基类内部调用自身方法时显式加上本包名限定，不受继承链查找规则影响：

# Left包修改
package Left;
# ...原有其他代码不变
sub as_string {
    my $self = shift;
    # 显式调用本包的value方法
    'Left(' . $self->Left::value . ')';
}
use overload '""' => \&as_string;

sub perform {
    my $self = shift;
    # 显式调用本包的字符串化方法
    print '# LEFT ' . $self->Left::as_string . "\n";
}

# Right包修改
package Right;
# ...原有其他代码不变
sub as_string {
    my $self = shift;
    # 显式调用本包的value方法
    'Right(' . $self->Right::value . ')';
}
use overload '""' => \&as_string;

sub perform {
    my $self = shift;
    # 显式调用本包的字符串化方法
    print '# RIGHT ' . $self->Right::as_string . "\n";
}

该方案不需要修改子类代码，对原有逻辑侵入性小，稳定性高。

方案2：临时重bless对象（无基类修改权限时用） #

如果无法修改基类代码，可以在子类调用父类方法前临时修改对象的bless类，调用完成后恢复：

package Multi;
# ...原有其他代码不变
sub perform {
    my $self = shift;
    my $orig_class = ref $self;
    # 临时bless为Left类调用方法
    bless $self, 'Left';
    $self->perform;
    # 临时bless为Right类调用方法
    bless $self, 'Right';
    $self->perform;
    # 恢复原有类
    bless $self, $orig_class;
}

该方案不需要修改基类，但仅适合简单场景，复杂继承结构下可能出现不可预期的问题。

内容的提问来源于stack exchange，提问作者Ted Lyngmo