具有最小值、最大值和默认值的 Perl Moose 属性

Question

使用 Moose，可以创建具有默认值的属性。
我有一组属性，它们都有最小值、最大值和默认值。
它们是表示比例的属性(例如 Tk::Scale)。

目前，我至少有 3 个属性:
当前和默认:

has 'attr' => (is => 'rw', isa => 'Int', default => 300, lazy => 1, clearer => '_clear_attr');

分钟:

has 'attr_min' => (is => 'rw', isa => Int', default => 100);

最大限度:

has 'attr_max' => (is => 'rw', isa => Int', default => 1000);

是否可以在一个属性中包含所有四个(当前、默认、最小值、最大值)？

Answer 1

我认为您想创建一个验证规则。

use Moose::Util::TypeConstraints;

subtype 'ScaleVal',
   as 'Int',
   where { 100 <= $_ && $_ <= 1000 };

has attr => (
   is      => 'rw',
   isa     => 'ScaleVal',
   default => 300,
);