allow setting method metaclass attributes with the command installer (command foo => sub { ... }, pass_args => 0;)

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/Bot/Games/OO.pm b/lib/Bot/Games/OO.pm
index e486b68..7f60115 100644
--- a/lib/Bot/Games/OO.pm
+++ b/lib/Bot/Games/OO.pm
@@ -6,7 +6,7 @@ use Moose::Util::MetaRole;
 
 sub command {
     my $class = shift;
-    my ($name, $code) = @_;
+    my ($name, $code, %args) = @_;
     my $method_meta = $class->meta->get_method($name);
     my $superclass = Moose::blessed($method_meta) || 'Moose::Meta::Method';
     my $method_metaclass = Moose::Meta::Class->create_anon_class(
@@ -25,6 +25,9 @@ sub command {
         );
         $class->meta->add_method($name, $method_meta);
     }
+    for my $attr (Bot::Games::Meta::Role::Command->meta->get_attribute_list) {
+        $method_meta->$attr($args{$attr}) if exists $args{$attr};
+    }
 }
 
 Moose::Exporter->setup_import_methods(