mark these comments as issues with perl6

5 files changed, 14 insertions, 14 deletions

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index 1713678..d85e09f 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -7,7 +7,7 @@ role Bread::Board::Traversable {
     has Bread::Board::Traversable $.parent is rw;
 
     method fetch (Str $path is copy) {
-        # TODO substitutions don't return a useful value? # '
+        # PERL6: substitutions don't return a useful value? # '
         # if $path ~~ s/^ \/ // {
         if $path ~~ m[^ '/' ] {
             $path ~~ s[^ '/' ] = '';
@@ -44,11 +44,11 @@ role Bread::Board::Traversable {
 role Bread::Board::Service does Bread::Board::Traversable {
     has Str $.name;
 
-    # TODO: typed hashes NYI
+    # PERL6: typed hashes NYI
     # has Hash of Bread::Board::Dependency $.dependencies = {};
     has $.dependencies = {};
 
-    # XXX there doesn't appear to be any way for roles to do things at # '
+    # PERL6: there doesn't appear to be any way for roles to do things at # '
     # construction time without breaking things - so, just call this method
     # in the constructor of all classes that use this role manually
     method _set_dependency_parents {
@@ -56,7 +56,7 @@ role Bread::Board::Service does Bread::Board::Traversable {
             $dep.parent = self;
         }
 
-        # TODO: for loops are currently lazy, so won't get evaluated until # '
+        # PERL6: for loops are currently lazy, so won't get evaluated until # '
         # something evaluates the return value if they are the last statement
         # in a method. this may change in the future, because it's pretty # '
         # weird
@@ -81,7 +81,7 @@ role Bread::Board::Service does Bread::Board::Traversable {
 }
 
 role Bread::Board::HasParameters {
-    # TODO: typed hashes NYI
+    # PERL6: typed hashes NYI
     # has Hash of Hash $.parameters = {};
     has $.parameters = {};
 
@@ -105,7 +105,7 @@ role Bread::Board::HasParameters {
             }
         }
 
-        # TODO: for loops are currently lazy, so won't get evaluated until # '
+        # PERL6: for loops are currently lazy, so won't get evaluated until # '
         # something evaluates the return value if they are the last statement
         # in a method. this may change in the future, because it's pretty # '
         # weird
@@ -141,7 +141,7 @@ class Bread::Board::ConstructorInjection
     has $.class;
     has Str $.constructor_name is rw = 'new';
 
-    # TODO: type coercions NYI
+    # PERL6: type coercions NYI
     method new (*%params is copy) {
         if %params.<dependencies> {
             my $deps = {};
@@ -187,7 +187,7 @@ class Bread::Board::BlockInjection
     has Callable $.block;
     has $.class = Any;
 
-    # TODO: type coercions NYI
+    # PERL6: type coercions NYI
     method new (*%params is copy) {
         if %params.<dependencies> {
             my $deps = {};
@@ -230,13 +230,13 @@ class Bread::Board::Literal does Bread::Board::Service {
 
 class Bread::Board::Container does Bread::Board::Traversable {
     has Str $.name;
-    # TODO: typed hashes NYI
+    # PERL6: typed hashes NYI
     # has Hash of Bread::Board::Container $.sub_containers = {};
     # has Hash of Bread::Board::Service $.services = {};
     has $.sub_containers = {};
     has $.services = {};
 
-    # TODO: type coercions NYI
+    # PERL6: type coercions NYI
     method new (*%params is copy) {
         if %params.<sub_containers>.isa(Array) {
             %params.<sub_containers> = %params.<sub_containers>.map(-> $c { $c.name => $c }).hash;
diff --git a/t/001_constructor_injection.t b/t/001_constructor_injection.t
index 471b731..2d73e3a 100644
--- a/t/001_constructor_injection.t
+++ b/t/001_constructor_injection.t
@@ -3,7 +3,7 @@ use Test;
 
 use Bread::Board;
 
-# TODO: doing anything at all with the type object for a role with required
+# PERL6: 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]")) {
diff --git a/t/003_block_injection.t b/t/003_block_injection.t
index a235fc7..c7eb618 100644
--- a/t/003_block_injection.t
+++ b/t/003_block_injection.t
@@ -3,7 +3,7 @@ use Test;
 
 use Bread::Board;
 
-# TODO: doing anything at all with the type object for a role with required
+# PERL6: 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]")) {
diff --git a/t/004_block_injection_w_out_class.t b/t/004_block_injection_w_out_class.t
index 3313ca7..8ac4d65 100644
--- a/t/004_block_injection_w_out_class.t
+++ b/t/004_block_injection_w_out_class.t
@@ -3,7 +3,7 @@ use Test;
 
 use Bread::Board;
 
-# TODO: doing anything at all with the type object for a role with required
+# PERL6: 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]")) {
diff --git a/t/010_container.t b/t/010_container.t
index a2105d8..c529294 100644
--- a/t/010_container.t
+++ b/t/010_container.t
@@ -3,7 +3,7 @@ use Test;
 
 use Bread::Board;
 
-# TODO: doing anything at all with the type object for a role with required
+# PERL6: 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]")) {