are-these-your-keys.p6

use v6;

enum Noms(<Greenstuff Walkingstuff Syntetics>);
(my %eaten{Noms} is default(0)) does role :: { 
    method keys { Noms::.values } 
    method kv { gather for self.keys -> \k { take k, self.{k}} }
};

%eaten{Greenstuff}++;

dd %eaten, %eaten.keyof, %eaten.keys;

dd %eaten.kv;

role Enumkeys[::T] {
    method keys { T::.values }
    multi method kv(Positional:D) { gather for self.keys -> \k { take k, self.[k] } }
    multi method kv(Associative:D) { gather for self.keys -> \k { take k, self.{k} } }
}

multi sub prefix:<+>(Any:U \E where .HOW ~~ Metamodel::EnumHOW){ E.enums.elems }

(my @eaten[+Noms]) does Enumkeys[Noms];

dd @eaten.kv;