diff options
Diffstat (limited to 'lib/MooseX/NonMoose.pm')
| -rw-r--r-- | lib/MooseX/NonMoose.pm | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm index c979bd3..a05ca30 100644 --- a/lib/MooseX/NonMoose.pm +++ b/lib/MooseX/NonMoose.pm @@ -1,5 +1,4 @@ package MooseX::NonMoose; -use Moose (); use Moose::Exporter; =head1 NAME @@ -68,20 +67,18 @@ confused by the extra arguments that Moose requires (for attributes, etc.) =cut -Moose::Exporter->setup_import_methods; +my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods( + metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'], + constructor_class_roles => ['MooseX::NonMoose::Meta::Role::Constructor'], + install => [qw(import unimport)], +); sub init_meta { - shift; + my $package = shift; my %options = @_; Carp::cluck('Roles have no use for MooseX::NonMoose') if Class::MOP::class_of($options{for_class})->isa('Moose::Meta::Role'); - Moose::Util::MetaRole::apply_metaclass_roles( - for_class => $options{for_class}, - metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'], - constructor_class_roles => - ['MooseX::NonMoose::Meta::Role::Constructor'], - ); - return Class::MOP::class_of($options{for_class}); + $package->$init_meta(@_); } =head1 TODO |