From e6e79317f730a6b4bf2be04f649750b230ed62b1 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 31 Oct 2009 15:42:14 -0500 Subject: don't overwrite a custom base_class option --- lib/IM/Engine/Plugin/Commands/OO.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/IM/Engine/Plugin/Commands/OO.pm b/lib/IM/Engine/Plugin/Commands/OO.pm index ba0ba75..6f1c341 100644 --- a/lib/IM/Engine/Plugin/Commands/OO.pm +++ b/lib/IM/Engine/Plugin/Commands/OO.pm @@ -58,7 +58,8 @@ my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods( sub init_meta { my ($package, %options) = @_; $options{base_class} = 'IM::Engine::Plugin::Commands::Command' - if $options{for_class} ne 'IM::Engine::Plugin::Commands::Command'; + if !exists $options{base_class} + && $options{for_class} ne 'IM::Engine::Plugin::Commands::Command'; Moose->init_meta(%options); goto $init_meta; } -- cgit v1.2.3-54-g00ecf