从名称而不是值创建枚举

Question

给出枚举

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

可以通过直接键入名称之一或将值之一传递给枚举对象来轻松设置变量：

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

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

除了使用EVAL并给定Str对应于枚举之一的a 之外，如何创建$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;