Calling base constructor in perl

Question

What is the correct way to call the base constructor from the class constructor in Perl ?

I have seen syntax like this:

 my $class = shift; 
 my $a = sh         


        

Answer 1

When using multiple inheritance, the default method resolution order is sub-par. I strongly recommend that you add

use mro 'c3';

to the modules and that you call the next constructor in the chain using

sub new {
   my ($class) = @_;
   return $class->next::method(@_);
}

Alpha and Beta would have to do the same for this to work.

Ref: mro