Perl-Mouse/アトリビュート/型制約のバックアップ(No.1) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-Mouse/アトリビュート/型制約へ行く。
- 1 (2010-12-24 (金) 04:53:59)
- 2 (2010-12-24 (金) 05:06:53)

アトリビュートの型制約

Num.pm

 package Num;
 use Mouse;
 use Mouse::Util::TypeConstraints;
 
 subtype 'PositiveInt'
    => as 'Int'
    => where { $_ > 0 }
    => message { "The number you provided, $_, was not a positive number" };

 has 'num' => (
    is  => 'ro',
    isa => 'PositiveInt',
 );
 
 __PACKAGE__->meta->make_immutable();

main.pl

my $num = Num->new(num => -10);

説明

hasでアトリビュートを記述する際にisaで型制約を指定する事が出来る。