From 3e7dc34d32213cb653210d951014bfc892603154 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 28 Dec 2012 06:47:27 -0600 Subject: mark these comments as issues with perl6 --- lib/Bread/Board.pm | 20 ++++++++++---------- t/001_constructor_injection.t | 2 +- t/003_block_injection.t | 2 +- t/004_block_injection_w_out_class.t | 2 +- t/010_container.t | 2 +- 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. { 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. { 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..isa(Array) { %params. = %params..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]")) { -- cgit v1.2.3-54-g00ecf