diff options
| author | doy <doy@tozt.net> | 2009-04-15 00:02:29 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-04-15 00:02:29 -0500 |
| commit | efff69bbf37afb254abc981814c3e9114e77f896 (patch) | |
| tree | 27684ab7330c09c05730bffac788455b2b20a164 /lib/MooseX/NonMoose | |
| parent | 934ff0ce3fd0701e86f5435294829d6b306667a1 (diff) | |
| download | moosex-nonmoose-efff69bbf37afb254abc981814c3e9114e77f896.tar.gz moosex-nonmoose-efff69bbf37afb254abc981814c3e9114e77f896.zip | |
gahh, meta stuff makes my head hurt
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 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; } |