Routine.unwrap now throws a typed exception

rakudo · Feb 27, 2012 · d696855 · d696855
1 parent 409db17
commit d696855
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -317,3 +317,7 @@ my class X::Augment::NoSuchType does X::Comp {
     has $.package;
     method message() { "You tried to agument $.package-type $.package, but it does not exist" }
 }
+
+my class X::Routine::Unwrap is Exception {
+    method message() { "Invalid wrap handle passed to routine" }
+}
diff --git a/src/core/Routine.pm b/src/core/Routine.pm
@@ -1,3 +1,5 @@
+my class X::Routine::Unwrap { ... }
+
 my class Routine {
     method of() { self.signature.returns }
     method returns() { self.signature.returns }
@@ -86,7 +88,7 @@ my class Routine {
 
     method unwrap($handle) {
         $handle.can('restore') && $handle.restore() ||
-            die("Invalid wrap handle passed to routine")
+            die(X::Routine::Unwrap.new())
     }
 
     method yada() {