perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 9 insertions, 10 deletions

diff --git a/foo b/foo
index 8977a2650b..c2f7b43fb3 100755
--- a/foo
+++ b/foo
@@ -1,12 +1,11 @@
 #!./perl
 
-tie ( @a, TST_tie, "arg1", "arg2" ); 
-$a[2]=[1];
-
-package TST_tie;
-
-sub new { bless []; }
-
-sub fetch { print "store @_\n" }
-sub store { print "store @_\n" }
-sub delete { print "store @_\n" }
+#   Multiple Inheritence (get rich quick :-)
+	{
+	    package OBJ2; sub abc { print "abc\n"; }
+	    package OBJ3; sub def { print "def\n"; }
+	    package OBJ4; @ISA = ("OBJ2", "OBJ3");
+	    $x = bless { foo => bar };
+	    $x->abc;					# prints ``abc''
+	    $x->def;					# prints ``def''
+	}