throw the first typed exception from within the setting

rakudo · Nov 1, 2011 · 8780040 · 8780040
1 parent ee1a1c5
commit 8780040
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/CallFrame.pm b/src/core/CallFrame.pm
@@ -48,7 +48,7 @@ my class CallFrame {
     }
 
     method callframe(Int $level = 0) {
-        die "not yet implemented";
+        die X::NYI.new(feature => 'Callframe.callframe');
     }
 }
 

diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -4,8 +4,7 @@ my package X {
         has $.message;
 
         multi method Str(Base:D:) {
-            # Just a stub so far.
-            $!message.Str // 'Something went wrong'
+            $.message.Str // 'Something went wrong'
         }
         method ID() { ... }
     }
@@ -19,7 +18,8 @@ my package X {
         has $.column;
     }
 
-    role NYI {
+    class NYI is Base {
+        method message() { "$.feature not yet implemented. Sorry. " }
         has $.feature;
     }