在Perl 6中重载常量

Question

是否有可能在Perl 6中重载常量？这是我正在看的Perl 5示例.

特别是我想获得一个使用的字面值的字符串,例如,如果代码是

my $x = .1e-003 ;

我需要".1e-003"而不是0.0001.

Answer 1

我刚添加了这样一个模块:

https://github.com/FROGGS/p6-overload-constant

用法:

use v6;
sub decimal { $^a.flip }
use overload::constant &decimal;

say .1e-003 # "300-e1."