Parent Directory
| 
Revision Log
| 
Patch
| revision 1.8 by wakaba, Sun Jul 8 05:42:36 2007 UTC | revision 1.9 by wakaba, Sun Jul 8 13:04:36 2007 UTC | |
|---|---|---|
| # | Line 33 sub AUTOLOAD { | Line 33 sub AUTOLOAD { |
| 33 | } | } |
| 34 | }; | }; |
| 35 | goto &{ $AUTOLOAD }; | goto &{ $AUTOLOAD }; |
| } elsif ({ | ||
| ## Read-write attributes (DOMString, trivial accessors) | ||
| }->{$method_name}) { | ||
| no strict 'refs'; | ||
| eval qq{ | ||
| sub $method_name (\$) { | ||
| if (\@_ > 1) { | ||
| \${\$_[0]}->{$method_name} = ''.$_[1]; | ||
| } | ||
| return \${\$_[0]}->{$method_name}; | ||
| } | ||
| }; | ||
| goto &{ $AUTOLOAD }; | ||
| 36 | } else { | } else { |
| 37 | require Carp; | require Carp; |
| 38 | Carp::croak (qq<Can't locate method "$AUTOLOAD">); | Carp::croak (qq<Can't locate method "$AUTOLOAD">); |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |