Parent Directory
| 
Revision Log
| 
Patch
| revision 1.6 by wakaba, Sat Jul 14 09:19:11 2007 UTC | revision 1.7 by wakaba, Sat Jul 14 16:32:28 2007 UTC | |
|---|---|---|
| # | Line 23 sub AUTOLOAD { | Line 23 sub AUTOLOAD { |
| 23 | no strict 'refs'; | no strict 'refs'; |
| 24 | eval qq{ | eval qq{ |
| 25 | sub $method_name (\$) { | sub $method_name (\$) { |
| if (\@_ > 1) { | ||
| require Carp; | ||
| Carp::croak (qq<Can't modify read-only attribute>); | ||
| } | ||
| 26 | return \${\$_[0]}->{$method_name}; | return \${\$_[0]}->{$method_name}; |
| 27 | } | } |
| 28 | }; | }; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |