From bce3359135b8c2622c2fa350827b31b6f8117859 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 25 Jan 2009 16:43:27 -0500
Subject: clean up the command installer a bit

---
 lib/Bot/Games/OO.pm | 8 ++++----
 1 file 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,
-- 
cgit v1.2.3-54-g00ecf