diff options
| author | Dave Rolsky <autarch@urth.org> | 2010-09-27 12:45:47 -0500 |
|---|---|---|
| committer | Dave Rolsky <autarch@urth.org> | 2010-09-27 12:45:47 -0500 |
| commit | 814eae97ff32a94ee31b163d7a7090b9375dda81 (patch) | |
| tree | e8e74523ba3c61ac5b75060d5aa26bab3e1f7c3c /lib | |
| parent | e0d1796910c03ffb5ecabe85b2ff0e681d33862d (diff) | |
| download | moosex-nonmoose-814eae97ff32a94ee31b163d7a7090b9375dda81.tar.gz moosex-nonmoose-814eae97ff32a94ee31b163d7a7090b9375dda81.zip | |
Don't assume that CMOP::class_of will return an object
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MooseX/NonMoose.pm | 3 | ||||
| -rw-r--r-- | lib/MooseX/NonMoose/InsideOut.pm | 3 |
2 files changed, 4 insertions, 2 deletions
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(@_); } diff --git a/lib/MooseX/NonMoose/InsideOut.pm b/lib/MooseX/NonMoose/InsideOut.pm index 1a8ac4a..8d19bc3 100644 --- a/lib/MooseX/NonMoose/InsideOut.pm +++ b/lib/MooseX/NonMoose/InsideOut.pm @@ -45,8 +45,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(@_); } |