this is just too troublesome for now

1 files changed, 12 insertions, 3 deletions

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index da404ad..7221b62 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -26,7 +26,10 @@ role Traversable {
         return $root;
     }
 
-    method get_enclosing_container {...}
+    # PERL6: doing anything at all with the type object for a role with
+    # required methods is broken
+    #method get_enclosing_container {...}
+    method get_enclosing_container {}
 
     method _fetch (Str $path) {
         return self if $path eq '';
@@ -40,13 +43,19 @@ role Traversable {
         return self._fetch_single(@parts[0])._fetch($rest);
     }
 
-    method _fetch_single (Str $path) {...}
+    # PERL6: doing anything at all with the type object for a role with
+    # required methods is broken
+    #method _fetch_single (Str $path) {...}
+    method _fetch_single (Str $path) {}
 }
 
 role Service does Traversable {
     has Str $.name;
 
-    method get {...}
+    # PERL6: doing anything at all with the type object for a role with
+    # required methods is broken
+    #method get {...}
+    method get {}
 
     method get_enclosing_container {
         return $.parent;