From e874254a4ecd136bb7f057c25556f2097cb9de32 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 15:24:58 -0600
Subject: implement array dependency specifications

---
 lib/Bread/Board.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'lib/Bread/Board.pm')

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index eecec5c..4b788b7 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -168,6 +168,12 @@ class ConstructorInjection does Service does HasParameters does HasDependencies
     # PERL6: type coercions NYI
     method new (*%params is copy) {
         if %params.<dependencies> {
+            if %params.<dependencies> ~~ Array {
+                %params.<dependencies> = %params.<dependencies>.map(-> $dep {
+                    $dep.service_path.split('/').[*-1] => $dep
+                }).hash;
+            }
+
             my $deps = {};
             for %params.<dependencies>.keys -> $name {
                 my $dep = %params.<dependencies>.{$name};
@@ -227,6 +233,12 @@ class BlockInjection does Service does HasParameters does HasDependencies {
     # PERL6: type coercions NYI
     method new (*%params is copy) {
         if %params.<dependencies> {
+            if %params.<dependencies> ~~ Array {
+                %params.<dependencies> = %params.<dependencies>.map(-> $dep {
+                    $dep.service_path.split('/').[*-1] => $dep
+                }).hash;
+            }
+
             my $deps = {};
             for %params.<dependencies>.keys -> $name {
                 my $dep = %params.<dependencies>.{$name};
-- 
cgit v1.2.3-54-g00ecf