アトリビュート生成 (has)

hasを使う。

User.pm

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

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;

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-06-11 (土) 15:11:52 (2571d)