Add a couple of missing .^mro methods.

rakudo · Jun 3, 2013 · 623eeb3 · 623eeb3
1 parent a31ce41
commit 623eeb3
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/ConcreteRoleHOW.nqp b/src/Perl6/Metamodel/ConcreteRoleHOW.nqp
@@ -122,4 +122,8 @@ class Perl6::Metamodel::ConcreteRoleHOW
         for @!role_typecheck_list { @types.push($_) }
         nqp::settypecache($obj, @types)
     }
+
+    method mro($obj) {
+        [$obj]
+    }
 }
diff --git a/src/Perl6/Metamodel/ParametricRoleHOW.nqp b/src/Perl6/Metamodel/ParametricRoleHOW.nqp
@@ -198,4 +198,8 @@ class Perl6::Metamodel::ParametricRoleHOW
         $conc.HOW.compose($conc);
         return $conc;
     }
+
+    method mro($obj) {
+        [$obj]
+    }
 }