diff options
-rw-r--r-- | lib/Bot/Games/OO.pm | 5 |
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( |