typed exception for failed sequence deduction

rakudo · Apr 5, 2012 · 2c35bdb · 2c35bdb
1 parent fd7f971
commit 2c35bdb
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -548,4 +548,8 @@ my class X::Str::Numeric is Exception {
     }
 }
 
+my class X::Sequence::Deduction is Exception {
+    method message() { 'Unable to decude sequence' }
+}
+
 # vim: ft=perl6
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -137,7 +137,7 @@ sub SEQUENCE($left, $right, :$exclude_end) {
                 }
             }
             else {
-                $value = (sub { fail "unable to deduce sequence" })();
+                $value = (sub { fail X::Sequence::Deduction.new })();
             }
         }
         take $value unless $exclude_end;