From 814eae97ff32a94ee31b163d7a7090b9375dda81 Mon Sep 17 00:00:00 2001 From: Dave Rolsky 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 ++- lib/MooseX/NonMoose/InsideOut.pm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'lib') 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(@_); } -- cgit v1.2.3-54-g00ecf