Re: inheritance: constructors

in reply to inheritance: constructors

This is why you ought to use Moose, or a Moose-work-alike such as Moo for pretty much any OO. You never need to write another constructor again!

use v5.14;
use strict;
use warnings;

package Word {
    use Moo;
    has stem    => (is => 'ro');
    has english => (is => 'ro');
}

package Noun {
    use Moo;
    extends 'Word';
    has gender  => (is => 'ro');
    has nom_sg  => (is => 'ro');
    has gen_sg  => (is => 'ro');
}

my $w = Noun->new(
    stem    => 'ai(=m-',
    english => 'blood',
    gender  => 'n',
    nom_sg  => 'a',
    gen_sg  => 'atos',
);

say $w->english;
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Seekers of Perl Wisdom