- バックアップ一覧
- 差分 を表示
- ソース を表示
- バックアップ を表示
- Perl-Mouse/アトリビュート/アトリビュート生成 へ行く。
- 1 (2010-12-23 (木) 23:47:31)
- 2 (2010-12-24 (金) 01:13:10)
- 追加された行はこの色です。
- 削除された行はこの色です。
* アトリビュート生成 [#e94855b7] * アトリビュート生成 (has)[#e94855b7] hasを使う。 *** User.pm [#q43981cb] package User; use Mouse; use URI; has 'name' => ( is => 'rw', isa => 'Str' ); has 'age' => ( is => 'rw', isa => 'Int' ); has 'uri' => ( is => 'rw', isa => 'URI' ); __PACKAGE__->meta->make_immutable(); 1; *** main.pl [#c15804a5] use User; use URI; my $user = User->new( name => 'taro', age => 10, uri => URI->new('http://example.com/') ); say $user->name; say $user->age; say $user->uri;