getting this up to speed with Class::MOP 0.35

[gitmo/Moose.git] / lib / Moose / Meta / Attribute.pm

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 1d304a8..5feaf85 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -455,8 +455,8 @@ sub _get_delegate_method_list {
     my $self = shift;
     my $meta = $self->_find_delegate_metaclass;
     if ($meta->isa('Class::MOP::Class')) {
-        return map  { $_->{name}                     } 
-               grep { $_->{class} ne 'Moose::Object' } 
+        return map  { $_->{name}                     }  # NOTE: !never! delegate &meta
+               grep { $_->{class} ne 'Moose::Object' && $_->{name} ne 'meta' } 
                     $meta->compute_all_applicable_methods;
     }
     elsif ($meta->isa('Moose::Meta::Role')) {