From efe38cd988ef943f4e48ee056cdd15c881cd9460 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 13:49:23 -0600
Subject: this is just too troublesome for now

---
 lib/Bread/Board.pm | 15 ++++++++++++---
 1 file 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;
-- 
cgit v1.2.3