Cloning code refs.

Author: pmurias

src/vm/js/nqp-runtime/code-ref.js

@@ -29,4 +29,11 @@ CodeRef.prototype.setInfo = function(ctx, closureTemplate, staticInfo) {
   return this;
 };
 
+CodeRef.prototype.$$clone = function() {
+  var clone = new CodeRef(this.name);
+  clone.$call = this.$call;
+  clone.codeObj = this.codeObj;
+  return clone;
+};
+
 module.exports = CodeRef;

src/vm/js/nqp-runtime/core.js

@@ -293,10 +293,14 @@ op.rebless = function(obj, new_type) {
   return obj;
 };
 
-// STUB
 op.clone = function(obj) {
-  console.log("cloning", obj);
-  return obj;
+  if (obj.$$clone) {
+    return obj.$$clone(); 
+  } else {
+    // STUB
+    console.log("NYI cloning", obj);
+    return obj;
+  }
 };
 
 var where_counter = 0;

t/nqp/94-clone.t

@@ -0,0 +1,14 @@
+plan(5);
+sub foo() {
+    'hello there';
+}
+my $a := &foo;
+my $b := nqp::clone($a);
+
+nqp::setcodeobj($a, "obj");
+ok(nqp::getcodename($a) eq 'foo', 'sanity check');
+ok(nqp::getcodename($b) eq 'foo', 'cloned sub has correct name');
+ok($b() eq 'hello there', 'you can call a cloned sub');
+nqp::setcodename($b, 'bumblebee');
+ok(nqp::getcodename($a) eq 'foo', "changing the name on the cloned sub doesn't affect orginal");
+ok(nqp::getcodename($b) eq 'bumblebee', "you can change the name on the cloned sub");