submethod BUILD()

gistfile1.txt

#! /usr/bin/env perl6

my %words = ();
class Vocab {
    has Str $.word;
    has Str @.synonyms = [];


    submethod BUILD(:$!word, :@!synonyms, *@pos, *%nam) {
        note "Vocab BUILD(): ", @pos.perl, %nam.perl;
        %words{$!word} = self;
    }

    method Str {
        return $.word;
    }

    method find(Str $word) {
        return %words{$word};
    }
}

#class Thing {
#    has Vocab $.name;
#    has Vocab @.desc;
#}

my Vocab $car .= new(:word<car>, :synonyms('auto', 'vehicle'));

Vocab.find('car').perl.say;