From 51f82ea92b494418fe5c73b618b1420a347c9673 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 06:45:36 -0600
Subject: method stubs are {...}, not {*}

---
 lib/Bread/Board.pm                  | 6 +++---
 t/001_constructor_injection.t       | 5 ++++-
 t/003_block_injection.t             | 5 ++++-
 t/004_block_injection_w_out_class.t | 5 ++++-
 t/010_container.t                   | 5 ++++-
 5 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index 51f5934..1713678 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -24,7 +24,7 @@ role Bread::Board::Traversable {
         return $root;
     }
 
-    method get_enclosing_container {*}
+    method get_enclosing_container {...}
 
     method _fetch (Str $path) {
         return self if $path eq '';
@@ -38,7 +38,7 @@ role Bread::Board::Traversable {
         return self._fetch_single(@parts[0])._fetch($rest);
     }
 
-    method _fetch_single (Str $path) {*}
+    method _fetch_single (Str $path) {...}
 }
 
 role Bread::Board::Service does Bread::Board::Traversable {
@@ -63,7 +63,7 @@ role Bread::Board::Service does Bread::Board::Traversable {
         return;
     }
 
-    method get {*};
+    method get {...}
 
     method get_dependency ($name) {
         return $.dependencies.{$name};
diff --git a/t/001_constructor_injection.t b/t/001_constructor_injection.t
index b6e03bc..471b731 100644
--- a/t/001_constructor_injection.t
+++ b/t/001_constructor_injection.t
@@ -3,7 +3,10 @@ use Test;
 
 use Bread::Board;
 
-sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+# TODO: doing anything at all with the type object for a role with required
+# methods is broken
+#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) {
     ok($var.does($type), $msg);
 }
 
diff --git a/t/003_block_injection.t b/t/003_block_injection.t
index 9f45380..a235fc7 100644
--- a/t/003_block_injection.t
+++ b/t/003_block_injection.t
@@ -3,7 +3,10 @@ use Test;
 
 use Bread::Board;
 
-sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+# TODO: doing anything at all with the type object for a role with required
+# methods is broken
+#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) {
     ok($var.does($type), $msg);
 }
 
diff --git a/t/004_block_injection_w_out_class.t b/t/004_block_injection_w_out_class.t
index 622335d..3313ca7 100644
--- a/t/004_block_injection_w_out_class.t
+++ b/t/004_block_injection_w_out_class.t
@@ -3,7 +3,10 @@ use Test;
 
 use Bread::Board;
 
-sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+# TODO: doing anything at all with the type object for a role with required
+# methods is broken
+#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) {
     ok($var.does($type), $msg);
 }
 
diff --git a/t/010_container.t b/t/010_container.t
index 6ccc861..a2105d8 100644
--- a/t/010_container.t
+++ b/t/010_container.t
@@ -3,7 +3,10 @@ use Test;
 
 use Bread::Board;
 
-sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+# TODO: doing anything at all with the type object for a role with required
+# methods is broken
+#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
+sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) {
     ok($var.does($type), $msg);
 }
 
-- 
cgit v1.2.3