如何在 Moose 中将类变量声明为浮点型？

Question

如何在 Moose 中将类变量声明为浮点型？

下面我的（虚构的）示例会产生“真实”、“数字”等错误...“Str”有效，但达不到目的。搜索/谷歌没有帮助，因为我无法找到正确的搜索词。

---

PROBLEM.pm

package PROBLEM;
use strict;
use warnings;
use Moose;

has 'PROBLEM'=> (isa=>'real',is =>'ro',required=>'0',default=>sub {0.1;});

---

ma​​in.pl

use strict;
use warnings;

use PROBLEM;

my $problem=PROBLEM->new();

Answer 1

查看 Moose 类型 文档。没有内置的浮点类型，只有 Num 及其子类型 Int。这是有道理的，因为 Perl 实际上并没有（明显）区分浮点数和整数。

最好的办法可能是使用 Num 作为类型约束，或者编写您自己的类型，将值强制转换为适合您需要的某种形式。

Answer 2

您需要 Num 类型来获取实数：

{
    package Problem;
    use Moose;

    has 'number' => ( 
        isa      => 'Num', 
        is       => 'ro', 
        default  => sub { 0.1 },
    );
}


my $problem = Problem->new;
say $problem->number;  # => 0.1