typed exceptions for temp and let on non-containers

rakudo · May 27, 2012 · 493adbf · 493adbf
1 parent a4c09d1
commit 493adbf
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -707,6 +707,14 @@ my class X::NoDispatcher is Exception {
     }
 }
 
+my class X::Localizer::NoContainer is Exception {
+    has $.localizer;
+    method message() {
+        "Can only use '$.localizer' on a container";
+    }
+}
+
+
 {
     my %c_ex;
     %c_ex{'X::TypeCheck::Binding'} := sub ($got, $expected) is hidden_from_backtrace {

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -201,7 +201,7 @@ sub prefix:<temp>(\$cont) is rw {
         nqp::push($temp_restore, my %h = $cont);
     }
     else {
-        die "Can only use 'temp' on a container";
+        X::Localizer::NoContainer.new(localizer => 'temp').throw;
     }
     $cont
 }
@@ -221,7 +221,7 @@ sub prefix:<let>(\$cont) is rw {
         nqp::push($let_restore, my %h = $cont);
     }
     else {
-        die "Can only use 'let' on a container";
+        X::Localizer::NoContainer.new(localizer => 'let').throw;
     }
     $cont
 }