From a9399da675810d71831d8dc997a122c67288a8d5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 31 Dec 2012 14:55:14 -0600
Subject: factor out HasClass

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

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

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) {
-- 
cgit v1.2.3-54-g00ecf