Support for calling SVs, eval, array context, void context, get_sv.

[perl4caml.git] / test.pl

diff --git a/test.pl b/test.pl
index 480be16..b2b736d 100644 (file)
--- a/test.pl
+++ b/test.pl
@@ -1,7 +1,26 @@
-sub return1
+print "this is loading the 'test.pl' script!\n";
+
+sub return_one
+  {
+    print "this is the 'return_one' function!\n";
+    1
+  }
+
+sub return_array
+  {
+    print "this is the 'return_array' function!\n";
+    (1, 2, 3)
+  }
+
+sub return_closure
+  {
+    sub { $_[0] * $_[1] }
+  }
+
+sub dies
   {
-    print "this is the 'return1' function!\n";
-    1;
+    print "this is the 'dies' function! about to die now ...\n";
+    die "this is the exception message from 'dies'";
   }
 
 sub adder