1 files changed, 10 insertions, 13 deletions
diff --git a/lib/MooseX/NonMoose/InsideOut.pm b/lib/MooseX/NonMoose/InsideOut.pm
index 4e226e0..58bdcbd 100644
--- a/lib/MooseX/NonMoose/InsideOut.pm
+++ b/lib/MooseX/NonMoose/InsideOut.pm
@@ -1,5 +1,4 @@
 package MooseX::NonMoose::InsideOut;
-use Moose ();
 use Moose::Exporter;
 
 =head1 NAME
@@ -37,21 +36,19 @@ MooseX::NonMoose::InsideOut - easy subclassing of non-Moose non-hashref classes
 
 =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'],
+    instance_metaclass_roles => ['MooseX::InsideOut::Role::Meta::Instance'],
+    install                  => [qw(import unimport)],
+);
 
 sub init_meta {
-    shift;
+    my $package = shift;
     my %options = @_;
-    Moose->init_meta(%options);
-    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'],
-        instance_metaclass_roles =>
-            ['MooseX::InsideOut::Role::Meta::Instance'],
-    );
-    return Class::MOP::class_of($options{for_class});
+    Carp::cluck('Roles have no use for MooseX::NonMoose')
+        if Class::MOP::class_of($options{for_class})->isa('Moose::Meta::Role');
+    $package->$init_meta(@_);
 }
 
 =head1 AUTHOR