2009-02-20から1日間の記事一覧
perl Parent.pm package Parent; use strict; use warnings; use base qw/Class::Accessor::Fast Class::Data::Inheritable/; use Data::Dumper; __PACKAGE__->mk_accessors(qw/name/); __PACKAGE__->mk_ro_accessors(qw/for_read/); __PACKAGE__->mk_wo_acc…