add command and commands as options to 'has' for specifying generated methods as commands, and fix the command function to apply the role rather than use the alternate subclass

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/Bot/Games/OO.pm b/lib/Bot/Games/OO.pm
index a44dcb4..8ed874a 100644
--- a/lib/Bot/Games/OO.pm
+++ b/lib/Bot/Games/OO.pm
@@ -9,13 +9,13 @@ use Bot::Games::Meta::Method::Command;
 sub command($&) {
     my $class = shift;
     my ($name, $code) = @_;
-    # XXX: is $class->meta what i want? should i be calling some form of
-    # ->initialize? should i be calling ->get_metaclass_by_name? who knows!
-    $class->meta->add_method($name, Bot::Games::Meta::Method::Command->wrap(
+    my $method_meta = Bot::Games::Meta::Method::Command->wrap(
         $code,
         package_name => $class,
         name         => $name,
-    ));
+    );
+    Moose::Util::apply_all_roles($method_meta, 'Bot::Games::Meta::Role::Command');
+    $class->meta->add_method($name, $method_meta);
 }
 
 Moose::Exporter->setup_import_methods(