enums - 从名称而不是值创建枚举

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之外，如何将 $c创建为等于 charlie的枚举值？

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

Answer 1

您可以使用间接名称查找:

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