From f86a68225d9a06750d75a25a1de9f194a35ee523 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 15:40:25 -0600
Subject: implement wire_names

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

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

diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm
index 8c965ba..1132fd3 100644
--- a/lib/Bread/Board.pm
+++ b/lib/Bread/Board.pm
@@ -447,4 +447,8 @@ multi service (Parcel $params) {
     service(|$params.hash);
 }
 
+sub wire_names (*@names) is export {
+    return @names.map(-> $name { $name => depends_on($name) }).hash;
+}
+
 # vim:ft=perl6:foldmethod=manual
-- 
cgit v1.2.3