Select Code to Download

  *Bar:: = \*Foo:: ;

package Foo ;

...
  $bar->test(456) ;
  print "$bar\n" ;

TEST> [Foo=HASH(0x1a4ece4) 123]
Foo=HASH(0x1a4ece4)
TEST> [Foo=HASH(0x15d53dc) 456]
Foo=HASH(0x15d53dc)