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

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

Mouse アクセサ生成

User.pm

 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

 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;