Cloning objects.

Author: pmurias

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

@@ -4,6 +4,17 @@ function STable(REPR, HOW) {
   this.obj_constructor = function() {};
   this.obj_constructor.prototype._STable = this;
 
+  /* HACK - it's a bit hackish - think how correct it is */
+  this.obj_constructor.prototype.$$clone = function() {
+      var clone = new this._STable.obj_constructor();
+      for (var i in this) {
+        if (this.hasOwnProperty(i) && i != '_SC') {
+          clone[i] = this[i];
+        }
+      }
+      return clone;
+  };
+
   /* Default boolification mode 5 */
   this.obj_constructor.prototype.$$to_bool = function(ctx) {
     return this.type_object_ ? 0 : 1;

t/nqp/94-clone.t

@@ -1,4 +1,4 @@
-plan(5);
+plan(7);
 sub foo() {
     'hello there';
 }
@@ -12,3 +12,21 @@ 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");
+
+class Foo {
+    has $!foo;
+    method get_foo() {
+        $!foo;
+    }
+    method set_foo($value) {
+        $!foo := $value;
+    }
+}
+
+{
+    my $c := Foo.new(foo => 123);
+    my $d := nqp::clone($c);
+    $c.set_foo(456);
+    ok($d.get_foo == 123, "changing an attr on the cloned object doesn't affect the orginal");
+    ok($c.get_foo == 456, "we can change an attr on the new object");
+}