diff options
-rw-r--r-- | lib/Bread/Board.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm index 1773d12..eb82126 100644 --- a/lib/Bread/Board.pm +++ b/lib/Bread/Board.pm @@ -131,6 +131,10 @@ role HasParameters { } } +role HasClass { + has $.class; +} + class Dependency does Traversable { has Str $.service_path; has Service $.service; @@ -157,8 +161,7 @@ class Dependency does Traversable { } } -class ConstructorInjection does Service does HasParameters does HasDependencies { - has $.class; +class ConstructorInjection does Service does HasParameters does HasDependencies does HasClass { has Str $.constructor_name is rw = 'new'; # PERL6: type coercions NYI @@ -231,9 +234,8 @@ class Parameters { } } -class BlockInjection does Service does HasParameters does HasDependencies { +class BlockInjection does Service does HasParameters does HasDependencies does HasClass { has Callable $.block; - has $.class; # PERL6: type coercions NYI method new (*%params is copy) { |