From 3e5adcb6cc26e1969f473c0f4dcf2ce55e918ecf Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Sun, 5 Jul 2009 23:20:32 +0200
Subject: [PATCH] Fix/workaround in trait_mod:<of> so that variables typed with
 Code types work.

---
 src/setting/traits.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/setting/traits.pm b/src/setting/traits.pm
index 45456f6a4b7..496b3b7a472 100644
--- a/src/setting/traits.pm
+++ b/src/setting/traits.pm
@@ -125,7 +125,7 @@ multi trait_mod:<does>(Hash $var, $role) {
     $var does $role;
 }
 
-multi trait_mod:<of>(Code $block is rw, Object $type is rw) {
+multi trait_mod:<of>(Code $block is rw where { .defined }, Object $type is rw) {
     $block does Callable[$type];
 }