相关疑难解决方法(0)

给出枚举

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 =  ...