- バックアップ一覧
- 現在との差分 を表示
- ソース を表示
- バックアップ を表示
- Perl-Mouse/アトリビュート/型制約 へ行く。
- 1 (2010-12-24 (金) 04:53:59)
- 2 (2010-12-24 (金) 05:06:53)
- 追加された行はこの色です。
- 削除された行はこの色です。
* アトリビュートの型制約 [#ddb4f265] *** Num.pm [#j22644c7] 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 [#iaea632a] my $num = Num->new(num => -10); ** 説明 [#t7acc871] hasでアトリビュートを記述する際にisaで型制約を指定する事が出来る。