Constructor::Positional tells what class it came from.

rakudo · Jan 24, 2013 · b5a63c6 · b5a63c6
1 parent b49cbe0
commit b5a63c6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -885,7 +885,8 @@ my class X::Routine::Unwrap is Exception {
 }
 
 my class X::Constructor::Positional is Exception {
-    method message() { "Default constructor only takes named arguments" }
+    has $.name;
+    method message() { "Default constructor for '$.name' only takes named arguments" }
 }
 
 my class X::Hash::Store::OddNumber is Exception {

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -51,7 +51,7 @@ my class Mu {
         self.bless(*, |%attrinit);
     }
     multi method new($, *@) {
-        X::Constructor::Positional.new.throw;
+        X::Constructor::Positional.new(:name(self.^name)).throw();
     }
 
     method CREATE() {