package Klass;
sub new{ # コンストラクター
my $pkg = shift;
return bless { @_ }, $pkg;
}
sub meth{ # アクセサー
my $self = shift;
$self->{meth} = shift if @_;
$self->{meth};
}


う、うつくしい、うつくしすぎる・・・