objtest

   1 #!./perl
   2
   3 package OBJ;
   4
   5 @ISA = BASEOBJ;
   6
   7 $main'object = bless {FOO => foo, BAR => bar};
   8
   9 package main;
  10
  11 $object->mymethod("BAR");
  12
  13 mymethod $object "FOO";
  14
  15 #&mymethod($object, "BAR");
  16
  17 sub BASEOBJ'mymethod {
  18     local $ref = shift;
  19     print ref $ref, "\n";
  20     print $ref->{shift}, "\n";
  21 }