Perl继承和方法解析
示例
要使一个类成为另一个类的子类，请使用parent编译指示：
package Point; use strict; ... 1; package Point2D; use strict; use parent qw(Point); ... 1; package Point3D; use strict; use parent qw(Point); ... 1;
Perl允许多重继承：
package Point2D; use strict; use parent qw(Point PlanarObject); ... 1;
继承是关于在特定情况下要调用哪种方法的解析。由于纯Perl并未规定有关用于存储对象数据的数据结构的任何规则，因此继承与之无关。
考虑以下类层次结构：
package GeometryObject;
use strict;
sub transpose { ...}
1;
package Point;
use strict;
use parent qw(GeometryObject);
sub new { ... };
1;
package PlanarObject;
use strict;
use parent qw(GeometryObject);
sub transpose { ... }
1;
package Point2D;
use strict;
use parent qw(Point PlanarObject);
sub new { ... }
sub polar_coordinates { ... }
1;方法解析如下：
起点由箭头运算符的左操作数定义。
如果只是一个简单的词：
Point2D->new(...);
...或包含字符串的标量变量：
my$class='Point2D';
$class->new(...);
...然后起点是具有相应名称的软件包（Point2D在两个示例中）。
如果左操作数是一个标量变量，该标量变量包含一个有福的引用：
my$point={...};
bless$point,'Point2D';#typically,itisencapsulatedintoclassmethods
my@coord=$point->polar_coordinates;
那么起点就是参考的类别（再次，Point2D）。箭头运算符不能用于调用无祝福引用的方法。
如果起点包含必需的方法，则将其简单调用。
因此，既然Point2D::new存在，
Point2D->new(...);
会简单地称呼它。
如果起点不包含必需的方法，则在parent类中执行深度优先搜索。在上面的示例中，搜索顺序如下：
例如，在以下代码中：
my$point=Point2D->new(...);
$point->transpose(...);
GeometryObject::transpose即使会被覆盖，也会被调用的方法是PlanarObject::transpose。
Point2D
Point（的第一位父母Point2D）
GeometryObject（的父母Point）
PlanarObject（的第二个父级Point2D）
您可以显式设置起点。
在前面的示例中，您可以PlanarObject::transpose像这样显式调用：
my$point=Point2D->new(...);
$point->PlanarObject::transpose(...);
以类似的方式，SUPER::在当前类的父类中执行方法搜索。
例如，
packagePoint2D;
usestrict;
useparentqw(PointPlanarObject);
subnew{
(my$class,$x,$y)=@_;
my$self=$class->SUPER::new;
...
}
1;
将Point::new在执行过程中调用Point2D::new。