foo
Stevan Little [Sun, 24 Sep 2006 02:39:40 +0000 (02:39 +0000)]
lib/Moose/Meta/Role.pm

index 628f12d..5066f06 100644 (file)
@@ -166,7 +166,7 @@ sub has_method          { (shift)->Moose::Meta::Class::has_method(@_)          }
 sub alias_method        { (shift)->Moose::Meta::Class::alias_method(@_)        }
 sub get_method_list     { 
     grep {
-        !/meta/
+        !/^meta$/
     } (shift)->Moose::Meta::Class::get_method_list(@_)     
 }