diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-12-28 13:49:23 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-12-28 13:49:23 -0600 |
commit | efe38cd988ef943f4e48ee056cdd15c881cd9460 (patch) | |
tree | 744106176f5f6a2873bd1e3c2c3d62f2ab47fcab /lib | |
parent | 33e0a801cef509c08872550c490ba8efeb0eff1f (diff) | |
download | p6-bread-board-efe38cd988ef943f4e48ee056cdd15c881cd9460.tar.gz p6-bread-board-efe38cd988ef943f4e48ee056cdd15c881cd9460.zip |
this is just too troublesome for now
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Bread/Board.pm | 15 |
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; |