#!/usr/bin/perl
use myHash;
$thingy = myHash->new(foo => 'bar');
print $thingy->foo,"\n";
print $thingy->foo('baz'),"\n";
print $thingy->age('ageless'),"\n";
__END__
#output:
@_ = ('myHash=HASH(0x8166c28)')
$AUTOLOAD = myHash::foo

@_ = ('myHash=HASH(0x8166c28)', 'baz')
$AUTOLOAD = myHash::foo
baz
@_ = ('myHash=HASH(0x8166c28)', 'ageless')
$AUTOLOAD = myHash::age
ageless
@_ = ('myHash=HASH(0x8166c28)')
$AUTOLOAD = myHash::DESTROY