typed exception for symbol lookup failure

rakudo · Oct 5, 2012 · ebc730c · ebc730c
1 parent 321d57b
commit ebc730c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -970,6 +970,11 @@ my class X::PseudoPackage::InDeclaration does X::Comp {
     }
 }
 
+my class X::NoSuchSymbol is Exception {
+    has $.symbol;
+    method message { "No such symbol '$.symbol'" }
+}
+
 
 {
     my %c_ex;

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -260,9 +260,9 @@ sub INDIRECT_NAME_LOOKUP($root, *@chunks) is rw {
     }
     my Mu $thing := $root.exists($first) ?? $root{$first} !!
                     GLOBAL::.exists($first) ?? GLOBAL::{$first} !!
-                    fail("Symbol '$name' not found");
+                    X::NoSuchSymbol.new(symbol => $name).fail;
     for @parts {
-        fail("Symbol '$name not found") unless $thing.WHO.exists($_);
+        X::NoSuchSymbol(symbol => $name).fail unless $thing.WHO.exists($_);
         $thing := $thing.WHO{$_};
     }
     $thing;