diff options
Diffstat (limited to 'lib/IM/Engine/Plugin/Commands/OO/Role.pm')
-rw-r--r-- | lib/IM/Engine/Plugin/Commands/OO/Role.pm | 26 |
1 files changed, 7 insertions, 19 deletions
diff --git a/lib/IM/Engine/Plugin/Commands/OO/Role.pm b/lib/IM/Engine/Plugin/Commands/OO/Role.pm index 674392a..a1586c0 100644 --- a/lib/IM/Engine/Plugin/Commands/OO/Role.pm +++ b/lib/IM/Engine/Plugin/Commands/OO/Role.pm @@ -1,31 +1,19 @@ package IM::Engine::Plugin::Commands::OO::Role; use Moose::Role (); use Moose::Exporter; -use Moose::Util::MetaRole; # XXX: ick *command = \&IM::Engine::Plugin::Commands::OO::command; Moose::Exporter->setup_import_methods( with_caller => ['command'], also => ['Moose::Role'], + # XXX: roles in moose don't have an attribute metaclass yet + #attribute_metaclass_roles => + # ['IM::Engine::Plugin::Commands::Trait::Attribute::Command', + # 'IM::Engine::Plugin::Commands::Trait::Attribute::Formatted'], + metaclass_roles => + ['IM::Engine::Plugin::Commands::Trait::Class::Command', + 'IM::Engine::Plugin::Commands::Trait::Class::Formatted'], ); -sub init_meta { - shift; - my %options = @_; - Moose::Role->init_meta(%options); - Moose::Util::MetaRole::apply_metaclass_roles( - for_class => - $options{for_class}, - # XXX: roles in moose don't have an attribute metaclass yet - #attribute_metaclass_roles => - #['IM::Engine::Plugin::Commands::Trait::Attribute::Command', - #'IM::Engine::Plugin::Commands::Trait::Attribute::Formatted'], - metaclass_roles => - ['IM::Engine::Plugin::Commands::Trait::Class::Command', - 'IM::Engine::Plugin::Commands::Trait::Class::Formatted'], - ); - return Class::MOP::class_of($options{for_class}); -} - 1; |