diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-10-31 15:42:14 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-10-31 15:42:14 -0500 |
| commit | e6e79317f730a6b4bf2be04f649750b230ed62b1 (patch) | |
| tree | 9a798c311bad5d71a362fb737cab1e38615f94e1 | |
| parent | 19bbc930718013e2796aed28d69ba4b6089dad45 (diff) | |
| download | im-engine-plugin-commands-e6e79317f730a6b4bf2be04f649750b230ed62b1.tar.gz im-engine-plugin-commands-e6e79317f730a6b4bf2be04f649750b230ed62b1.zip | |
don't overwrite a custom base_class option
| -rw-r--r-- | lib/IM/Engine/Plugin/Commands/OO.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |