Каков правильный способ вызова базового конструктора из конструктора класса в 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;