From 2defb71732b88e06c3fb61731cccf0a7401b1145 Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 19:16:19 -0500 Subject: don't use ->meta --- lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/MooseX/NonMoose') diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm index 6101c19..75b6641 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm @@ -8,8 +8,8 @@ around can_be_inlined => sub { my $meta = $self->associated_metaclass; my $super_new = $meta->find_method_by_name($self->name); my $super_meta = $super_new->associated_metaclass; - if ($super_meta->meta->can('does_role') - && $super_meta->meta->does_role('MooseX::NonMoose::Meta::Role::Class')) { + if (Class::MOP::class_of($super_meta)->can('does_role') + && Class::MOP::class_of($super_meta)->does_role('MooseX::NonMoose::Meta::Role::Class')) { return 1; } -- cgit v1.2.3-54-g00ecf