new/bless/CREATE, and a stub BUILDALL.

jnthn · Jan 28, 2013 · c1b6aa1 · c1b6aa1
1 parent 5e127ce
commit c1b6aa1
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/nqp-src/NQPCORE.setting b/nqp-src/NQPCORE.setting
@@ -29,6 +29,23 @@ my module EXPORTHOW {
 # From src\core\NQPRoutine.pm
 
 my class NQPMu {
+    method CREATE() {
+        nqp::create(self)
+    }
+
+    method bless(NQPMu:U $self: *%attributes) {
+        my $instance := self.CREATE();
+        $instance.BUILDALL(|%attributes);
+        $instance
+    }
+
+    method BUILDALL(NQPMu:D $self: *%attrinit) {
+        # XXX TODO
+    }
+
+    method new(*%attributes) {
+        self.bless(|%attributes);
+    }
 }
 
 sub print(*@args) {