clean up the command installer a bit

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/Bot/Games/OO.pm b/lib/Bot/Games/OO.pm
index 767cf96..e486b68 100644
--- a/lib/Bot/Games/OO.pm
+++ b/lib/Bot/Games/OO.pm
@@ -7,18 +7,18 @@ use Moose::Util::MetaRole;
 sub command {
     my $class = shift;
     my ($name, $code) = @_;
-    my $superclass = Moose::blessed($class->meta->get_method($name))
-                  || 'Moose::Meta::Method';
+    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(
         superclasses => [$superclass],
         roles        => ['Bot::Games::Meta::Role::Command'],
         cache        => 1,
     );
-    if (my $method_meta = $class->meta->get_method($name)) {
+    if ($method_meta) {
         $method_metaclass->rebless_instance($method_meta);
     }
     else {
-        my $method_meta = $method_metaclass->name->wrap(
+        $method_meta = $method_metaclass->name->wrap(
             $code,
             package_name => $class,
             name         => $name,