From @masak

<masak> rakudo​: class A { has $.a; has $.b; method new($a, $b) {
self.new(​:$a, :$b) } }; say .a, .b for A.new(42, "OH HAI")
<p6eval> rakudo daf221​: OUTPUT«invalid arg type in named portion of args [...]
<masak> above, I tried to delegate to the Object​::new method
<masak> another attempt​:
<masak> rakudo​: class A { has $.a; has $.b; method new($a, $b) {
self.Object​::new(​:$a, :$b) } }; say .a, .b for A.new(42, "OH HAI")
<p6eval> rakudo daf221​: OUTPUT«elements() not implemented in class
'Sub'␤in method A​::new [...]
<masak> o.O
* masak submits rakudobug
<masak> both of those should work, no?
<moritz_> masak​: aye. There's a (known to me at least) problem with
the default new() method disappearing when an own such method is
defined
<masak> aye.
<masak> I knew that too. :)
<masak> but now I also know that it cannot be dug up either.
<moritz_> maybe moving Object.new to the setting migth help

From @jnthn

On Fri Oct 09 02​:14​:30 2009, masak wrote​:

<masak> rakudo​: class A { has $.a; has $.b; method new($a, $b) {
self.new(​:$a, :$b) } }; say .a, .b for A.new(42, "OH HAI")
<p6eval> rakudo daf221​: OUTPUT«invalid arg type in named portion of
args [...]
<masak> above, I tried to delegate to the Object​::new method

Fail. This is just a recursive call to the same method. However, Rakudo
failed it in the wrong way before; it's right now.

class A { has $.a; has $.b; method new($a, $b) { self.new(​:$a, :$b) }
}; say .a, .b for A.new(42, "OH HAI")
maximum recursion depth exceeded

<masak> another attempt​:
<masak> rakudo​: class A { has $.a; has $.b; method new($a, $b) {
self.Object​::new(​:$a, :$b) } }; say .a, .b for A.new(42, "OH HAI")
<p6eval> rakudo daf221​: OUTPUT«elements() not implemented in class
'Sub'␤in method A​::new [...]
<masak> o.O
* masak submits rakudobug

And after some s/Object/Mu/, this now works​:

class A { has $.a; has $.b; method new($a, $b) { self.Mu​::new(​:$a,
:$b) } }; say .a, .b for A.new(42, "OH HAI")
42OH HAI

Giving to moritz++ for spectesting.

Thanks,

Jonathan

The RT System itself - Status changed from 'new' to 'open'

@moritz - Status changed from 'open' to 'resolved'

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-construction/new.t

commit bab5843563abbdd1932d8f6436b16d74009ce39a
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sun Jul 18 12​:04​:09 2010 +0000

  [t/spec] tests for RT #​69676, delegating .new to self.Mu​::new
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;31745 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-construction/new.t b/t/spec/S12-construction/new.t
index c9ae68e..38894c9 100644
--- a/t/spec/S12-construction/new.t
+++ b/t/spec/S12-construction/new.t
@@ -56,6 +56,23 @@ is $o.x, 5, '... worked for the class Parent (other order)';
     dies_ok { RT71706::Artie.new }, 'die trying to instantiate missing class';
 }
 
+# RT #69676
+{
+    class NewFromMu {
+        has $.x;
+        has $.y;
+
+        method new($a, $b) {
+            self.Mu::new(:x($a), :y($b));
+        }
+    }
+
+    my $x;
+    lives_ok { $x = NewFromMu.new('j', 'k') }, 'can delegate to self.Mu::new';
+    is $x.x, 'j', '... got the right attribute (1)';
+    is $x.y, 'k', '... got the right attribute (2)';
+}
+
 done_testing;
 
 # vim: ft=perl6