diff options
| author | doy <doy@tozt.net> | 2009-04-20 19:16:19 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-04-20 19:16:19 -0500 |
| commit | 2defb71732b88e06c3fb61731cccf0a7401b1145 (patch) | |
| tree | 6f77d56c95b5ffac7505a360220d445979edd597 /lib/MooseX/NonMoose | |
| parent | ff20617797652889b66b548bd05fcd9e0e55320e (diff) | |
| download | moosex-nonmoose-2defb71732b88e06c3fb61731cccf0a7401b1145.tar.gz moosex-nonmoose-2defb71732b88e06c3fb61731cccf0a7401b1145.zip | |
don't use ->meta
Diffstat (limited to 'lib/MooseX/NonMoose')
| -rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; } |