Perl-Mouse/アトリビュート/アトリビュート生成のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
Perl-Mouse/アトリビュート/アトリビュート生成へ行く。
- 1 (2010-12-23 (木) 23:47:31)
- 2 (2010-12-24 (金) 01:13:10)

追加された行はこの色です。
削除された行はこの色です。

* Mouse アクセサ生成 [#e94855b7]

*** User.pm [#q43981cb]
 package User;
 use Mouse;
 use URI;

 has 'name' => ( is => 'rw', isa => 'Str' );
 has 'age'  => ( is => 'rw', isa => 'Str' );
 has 'uri'  => ( is => 'rw', isa => 'URI' );

 __PACKAGE__->meta->make_immutable();
 1;

*** main.pl [#c15804a5]
 use User;
 my $user = User->new( name => 'taro', age => 10, uri => URI->new('http://example.com/') );
 say $user->name;
 say $user->age;
 say $user->uri;