From dd21b9ecbd5c850b2569c75a2a6dd1a5eaf11440 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Aug 2009 02:33:26 -0500
Subject: have the custom exporter automatically set the base class when
 possible

---
 lib/IM/Engine/Plugin/Commands/OO.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/IM/Engine/Plugin/Commands/OO.pm b/lib/IM/Engine/Plugin/Commands/OO.pm
index 132d08a..581582c 100644
--- a/lib/IM/Engine/Plugin/Commands/OO.pm
+++ b/lib/IM/Engine/Plugin/Commands/OO.pm
@@ -63,7 +63,12 @@ sub init_meta {
             ['IM::Engine::Plugin::Commands::Trait::Class::Command',
              'IM::Engine::Plugin::Commands::Trait::Class::Formatted'],
     );
-    return $options{for_class}->meta;
+    my $meta = Class::MOP::class_of($options{for_class});
+    my @supers = $meta->superclasses;
+    $meta->superclasses('IM::Engine::Plugin::Commands::Command')
+        if @supers == 1 && $supers[0] eq 'Moose::Object'
+        && $options{for_class} ne 'IM::Engine::Plugin::Commands::Command';
+    return $meta;
 }
 
 1;
-- 
cgit v1.2.3