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;