From 814eae97ff32a94ee31b163d7a7090b9375dda81 Mon Sep 17 00:00:00 2001
From: Dave Rolsky <autarch@urth.org>
Date: Mon, 27 Sep 2010 12:45:47 -0500
Subject: Don't assume that CMOP::class_of will return an object

---
 lib/MooseX/NonMoose.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/MooseX/NonMoose.pm')

diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm
index c8b9500..ca10edc 100644
--- a/lib/MooseX/NonMoose.pm
+++ b/lib/MooseX/NonMoose.pm
@@ -75,8 +75,9 @@ my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
 sub init_meta {
     my $package = shift;
     my %options = @_;
+    my $meta = 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');
+        if $meta && $meta->isa('Moose::Meta::Role');
     $package->$init_meta(@_);
 }
 
-- 
cgit v1.2.3-54-g00ecf