From 9c808599ef1ec7a1eb77ecb7fa85735dee71ef1a Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 26 Apr 2009 22:08:59 -0500
Subject: allow setting any method metaclass attribute with the command syntax

---
 lib/Bot/Games/OO/Game.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Bot/Games/OO/Game.pm b/lib/Bot/Games/OO/Game.pm
index b260477..9f19fb7 100644
--- a/lib/Bot/Games/OO/Game.pm
+++ b/lib/Bot/Games/OO/Game.pm
@@ -22,7 +22,7 @@ sub command {
         );
         $class->meta->add_method($name, $method_meta);
     }
-    for my $attr (Bot::Games::Trait::Method::Command->meta->get_attribute_list) {
+    for my $attr ($method_metaclass->get_attribute_list) {
         $method_meta->$attr($args{$attr}) if exists $args{$attr};
     }
 }
-- 
cgit v1.2.3-54-g00ecf