Perl中的多级继承

Question

我有一个与Perl中的多级继承有关的问题。

这里是我的代码

mod.pm

package first; 

sub disp { 
    print "INSIDE FIRST\n"; 
} 

package second; 
@ISA = qw(first); 

sub disp { 
    print "INSIDE SECOND\n"; 
} 

package third; 
@ISA = qw(second); 

sub new { 
    $class = shift; 
    $ref = {}; 
    bless $ref, $class; 
    return $ref; 
} 

sub show { 
    $self = shift; 
    print "INSIDE THIRD\n"; 
} 

1; 

prog.pl

use mod; 

$obj = third->new(); 
$obj->show(); 
$obj->disp(); 

我有一个包含三个班的.pm文件。我想使用第三类的对象访问第一个类中的disp方法。我不确定这可以如何工作。

我试图使用两种方式来访问：

1. 使用类名=>第一:: DISP（）
2. 使用SUPER内第二封装DISP方法=> $自我> SUPER :: DISP（ ）;

但我不知道如何直接访问使用第三类的对象。

Answer 1

如果你需要这样做，那么你已经错误地定义了你的类。

third类继承自second类。 second有它自己的定义disp，所以它从来没有试图从它的超类first继承该方法。这意味着third得到在second

定义的实现简单的答案是要致电first::disp别的东西。这样second不会有方法的定义，如果你解释潜在的问题继承将再次调用

，为什么要忽略继承的方法，那么也许我们可以帮你找到一个更好的办法

也请注意，封装和模块文件应以大写字母开始，每个班通常是在它自己的文件，因此你通常会在First.pm等

Answer 2

$obj->first::disp()使用package First，但你是什么要求做的事情是你绝对不应该做的。修复你的设计。