Help for this page

Select Code to Download

Select or download this

package Foo;
sub new {
...

print $ref->bar, "\n";   # yields 'quux'
print $ref->{bar}, "\n"; # yields 'blorf'