diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-06-02 00:12:35 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-06-02 00:12:35 -0500 |
| commit | d322e62631ca94b4aeae23f3898f4445f1275eb9 (patch) | |
| tree | a7a81e5fc2abab510a993c7c70449fd4ea59238a | |
| parent | 1befad147edda6564a8e65e7c3ef68662c58534f (diff) | |
| download | bot-games-d322e62631ca94b4aeae23f3898f4445f1275eb9.tar.gz bot-games-d322e62631ca94b4aeae23f3898f4445f1275eb9.zip | |
use method_metaclass rather than hardcoding Moose::Meta::Method
| -rw-r--r-- | lib/Bot/Games/OO/Game.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Bot/Games/OO/Game.pm b/lib/Bot/Games/OO/Game.pm index 2da71bd..218eb32 100644 --- a/lib/Bot/Games/OO/Game.pm +++ b/lib/Bot/Games/OO/Game.pm @@ -9,7 +9,8 @@ sub command { my %args = @_; my $method_meta = $class->meta->get_method($name); - my $superclass = Moose::blessed($method_meta) || 'Moose::Meta::Method'; + my $superclass = Moose::blessed($method_meta) + || $class->meta->method_metaclass; my @method_metaclass_roles = ('Bot::Games::Trait::Method::Command'); push @method_metaclass_roles, 'Bot::Games::Trait::Method::Formatted' if $args{formatter}; |