Class::Accessorの内部の詳細が知りたいです
perldoc.jpのClass::Accessorによると以下のようになっていると書いてありましたが、このときのsetメソッドとgetメソッドはどうなっているのでしょうか?
perl
1 sub foo { 2 my($self) = shift; 3 if(@_) { # set 4 return $self->set('foo', @_); 5 } 6 else { 7 return $self->get('foo'); 8 } 9 }
ご教示よろしくお願いします
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。