Naively add .object attribute to Method::NotFound

Part of work in progress
rakudo · Apr 7, 2014 · 2991f8e · 2991f8e
1 parent c575000
commit 2991f8e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -66,6 +66,7 @@ my class X::AdHoc is Exception {
 }
 
 my class X::Method::NotFound is Exception {
+    has $.object;
     has $.method;
     has $.typename;
     has Bool $.private = False;

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -569,9 +569,10 @@ my class Mu { # declared in BOOTSTRAP
         $meth ??
             $meth(SELF, |c) !!
             X::Method::NotFound.new(
-                    method   => '!' ~ $name,
-                    typename => $type.HOW.name($type),
-                    :private,
+              object   => SELF,
+              method   => '!' ~ $name,
+              typename => $type.HOW.name($type),
+              :private,
             ).throw;
     }
 
@@ -594,8 +595,9 @@ my class Mu { # declared in BOOTSTRAP
         my @result := SELF.dispatch:<.*>($name, |c);
         if @result.elems == 0 {
             X::Method::NotFound.new(
-                    method   => $name,
-                    typename => SELF.HOW.name(SELF),
+              object   => SELF,
+              method   => $name,
+              typename => SELF.HOW.name(SELF),
             ).throw;
         }
         @result