相关疑难解决方法(0)

从Perl中的类构造函数调用基础构造函数的正确方法是什么？

我看过这样的语法:

 my $class = shift; 
 my $a = shift; 
 my $b = shift;
 my $self = $class->SUPER::new($a, $b);
 return $self;

它是否正确 ？如果我们有几个父类怎么办？例如,像这样的类:

 package Gamma;
 use base Alpha;
 use base Beta;

 sub new
 {
   # Call base constructors...
 }
 1;