Permalink
Browse files

class X::TypeCheck (not yet used)

  • Loading branch information...
1 parent 442db9f commit f05a64db8ee2cef1554527b80a8770bdd6102bed @moritz moritz committed Apr 16, 2012
Showing with 10 additions and 0 deletions.
  1. +10 −0 src/core/Exception.pm
View
@@ -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

0 comments on commit f05a64d

Please sign in to comment.