Hello,What're the meanings of this routine and why people need it?Thanks.sub
make_accessor {my($package, $name) = @_;no strict qw(refs);my $code =
<<EOT;*{"$package\\::$name"} = sub {my(\$self, \$value) = [EMAIL
PROTECTED];if(defined \$value) {\$self->{$name} = \$value;}if(exists
\$self->{$name}) {return (\$self->{$name});} else {return "";}}EOTif(! defined
*{"$package\::$name"}) {eval $code or die "$@";}}
"Jetzt Handykosten senken mit klarmobil - 14 Ct./Min.! Hier klicken"
http://produkte.shopping.freenet.de/handy_voip_isdn/klarmobil/index.html?pid=730025
