2008-03-22から1日間の記事一覧
クラス変数へのアクセサ(継承可)を提供してくれるクラス。 インスタンスごとに値を変えることもできる。 use strict; use warnings; use Class::Data::Accessor; use base qw/Class::Data::Accessor/; #instance value def my $obj = bless { id => '001',…
テストコード use strict; use warnings; package Hoge; our $var = "hoge_var"; { our $var2 = "hoge_var2"; } package Foo; #%Hoge:: have hash keys named as var, var2 print join(', ', keys %Hoge::), "\n"; #%Hoge:: have hash values that are type …