From efff69bbf37afb254abc981814c3e9114e77f896 Mon Sep 17 00:00:00 2001 From: doy Date: Wed, 15 Apr 2009 00:02:29 -0500 Subject: gahh, meta stuff makes my head hurt --- 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 2db5730..6101c19 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->can('does_role') - && $super_meta->does_role('MooseX::NonMoose::Meta::Role::Class')) { + if ($super_meta->meta->can('does_role') + && $super_meta->meta->does_role('MooseX::NonMoose::Meta::Role::Class')) { return 1; } -- cgit v1.2.3-54-g00ecf