First cut of starting to get 'is hidden' do work again. Not a complet…

…e implementation.
rakudo · Jul 2, 2010 · 9551482 · 9551482
1 parent 5954d61
commit 9551482
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -16,6 +16,10 @@ multi trait_mod:<is>(Mu $type where { !.defined }, :$rw!) {
     $type.HOW does role { method rw { True } }
 }
 
+multi trait_mod:<is>(Mu $type where { !.defined }, :$hidden!) {
+    $type.HOW does role { method hidden { True } }
+}
+
 multi trait_mod:<is>(Routine $r, :$default!) {
     $r does role { method default { True } }
 }

diff --git a/src/pmc/p6opaque.pmc b/src/pmc/p6opaque.pmc
@@ -182,9 +182,13 @@ PMC *look_for_method(PARROT_INTERP, PMC *search_list, INTVAL *start_pos, STRING
                 int j, k, found;
 
                 /* Does this class have the is hidden property? */
-                PMC *hidden = VTABLE_get_attr_str(interp, my_metaclass, CONST_STRING(interp, "$!hidden"));
-                if (!PMC_IS_NULL(hidden) && VTABLE_get_bool(interp, hidden))
-                    continue;
+                PMC *hidden_meth = VTABLE_find_method(interp, my_metaclass, CONST_STRING(interp, "hidden"));
+                if (!PMC_IS_NULL(hidden_meth)) {
+                    PMC *result = PMCNULL;
+                    Parrot_ext_call(interp, hidden_meth, "Pi->P", my_metaclass, &result);
+                    if (VTABLE_get_bool(interp, result))
+                        continue;
+                }
 
                 /* Does anything before it hide it? */
                 found = 0;