- # this clever line of code creates a subroutine which takes over from autoload
- # from OO Perl - Conway
- *$AUTOLOAD = sub {$_[0]->{$name} = $_[1] if @_ > 1; return $_[0]->{$name}};
- goto &$AUTOLOAD;
-# *{"${pkg}::$name"} = sub {$_[0]->{$name} = $_[1] if @_ > 1; return $_[0]->{$name}};
-# goto &{"${pkg}::$name"};