Add missing .^does.

rakudo · Sep 19, 2011 · d9b19d6 · d9b19d6
1 parent 178ddf6
commit d9b19d6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/MROBasedTypeChecking.pm b/src/Perl6/Metamodel/MROBasedTypeChecking.pm
@@ -7,6 +7,10 @@ role Perl6::Metamodel::MROBasedTypeChecking {
         0
     }
 
+    method does($obj, $type) {
+        pir::perl6_booleanize__Pi(nqp::istype($obj, $type))
+    }
+
     method type_check($obj, $checkee) {
         # The only time we end up in here is if the type check cache was
         # not yet published, which means the class isn't yet fully composed.