summaryrefslogtreecommitdiff
path: root/objtest
diff options
context:
space:
mode:
Diffstat (limited to 'objtest')
-rwxr-xr-xobjtest21
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";
-}