class X::TypeCheck (not yet used)

rakudo · Apr 16, 2012 · f05a64d · f05a64d
1 parent 442db9f
commit f05a64d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -552,4 +552,14 @@ my class X::Sequence::Deduction is Exception {
     method message() { 'Unable to deduce sequence' }
 }
 
+my class X::TypeCheck is Exception {
+    has $.operation;
+    has $.got;
+    has $.exepcted;
+    method message() {
+        "Type check failed in $.operation; expected '{$.expected.^name}' but got '{$.got.^name}'";
+
+    }
+}
+
 # vim: ft=perl6