is_composed in ParametricRoleHOW so we can stub a role.

rakudo · Jun 27, 2011 · eda6101 · eda6101
1 parent 4fc90f1
commit eda6101
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/ParametricRoleHOW.pm b/src/Perl6/Metamodel/ParametricRoleHOW.pm
@@ -27,6 +27,10 @@ class Perl6::Metamodel::ParametricRoleHOW
         $obj
     }
 
+    method is_composed($obj) {
+        $!composed
+    }
+
     method type_check($obj, $checkee) {
         if $obj =:= $checkee {
             return 1;