diff options
Diffstat (limited to 'objtest')
-rwxr-xr-x | objtest | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/objtest b/objtest deleted file mode 100755 index c4e6205bf6..0000000000 --- a/objtest +++ /dev/null @@ -1,21 +0,0 @@ -#!./perl - -package OBJ; - -@ISA = BASEOBJ; - -$main'object = bless {FOO => foo, BAR => bar}; - -package main; - -$object->mymethod("BAR"); - -mymethod $object "FOO"; - -#&mymethod($object, "BAR"); - -sub BASEOBJ'mymethod { - local $ref = shift; - print ref $ref, "\n"; - print $ref->{shift}, "\n"; -} |