[common] Implement .isa in NQPClassHOW.

jnthn · Nov 7, 2010 · ea111e5 · ea111e5
1 parent f7efbd5
commit ea111e5
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/common/NQP/NQPSetting.pm b/common/NQP/NQPSetting.pm
@@ -557,6 +557,22 @@ my knowhow NQPClassHOW {
         nqp::repr_defined(self)
     }
 
+    ##
+    ## Czechy
+    ##
+
+    method isa($obj, $checkee) {
+        my $i := 0;
+        my $mro_length := +@!mro;
+        while $i != $mro_length {
+            if @!mro[$i] =:= $checkee {
+                return 1;
+            }
+            $i := $i + 1;
+        }
+        0;
+    }
+
     ##
     ## Dispatchy
     ##