Создание перечисления из его имени, а не значения

Question

Учитывая перечисление

enum NATO (:alpha<A>, :bravo<B>, :charlie<C>, :delta<D>);

, можно легко установить переменную, буквально набрав одно из имен или передав одно из значений объекту enum:

my $a = alpha;
my $b = NATO('B');

say $a;        # ↪︎ alpha
say $b;        # ↪︎ bravo
say $a.value;  # ↪︎ A
say $b.value;  # ↪︎ B

Помимо использования EVAL и получения Str, которое соответствует одному из перечислений, как я могу создать $c, чтобы быть значением перечисления, эквивалентным charlie?

my $x = 'charlie';
my $c =  ...

Answer 1

Вы можете рассматривать это как хэш:

my $c = NATO::{$x};

Answer 2

Вы можете использовать косвенный поиск имени:

enum NATO (:alpha<A>, :bravo<B>, :charlie<C>);
my $x = 'charlie';
my $c = ::($x);
say $c.value;