in reply to Re: Re: Re: $var as accessor name?
in thread $var as accessor name?
That's not strictly true, though it is messy.
{ package test; sub new{ return bless [], $_[0]; } sub meth1{ print 'meth1'; } }; $t=test->new; $t->meth1; meth1 $h{x}='meth1'; $t->${ \$h{x} }; meth1
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Re: Re: $var as accessor name?
by ysth (Canon) on Mar 12, 2004 at 07:33 UTC |