Fix a bug that get_method_list() thrown the error for subroutine stubs

diff --git a/lib/Class/MOP/Mixin/HasMethods.pm b/lib/Class/MOP/Mixin/HasMethods.pm
index df91a13..ba48dd9 100644 (file)
--- a/lib/Class/MOP/Mixin/HasMethods.pm
+++ b/lib/Class/MOP/Mixin/HasMethods.pm
@@ -165,7 +165,7 @@ sub get_method_list {
     # ref, depending on the Perl version.
     return grep {
                defined $namespace->{$_}
-            && ( ref $namespace->{$_} || *{ $namespace->{$_} }{CODE} )
+            && ( ref(\$namespace->{$_}) ne 'GLOB' || *{ $namespace->{$_} }{CODE} )
             && $self->has_method($_)
         }
         keys %{$namespace};

diff --git a/t/003_methods.t b/t/003_methods.t
index 418c9b8..5340b44 100644 (file)
--- a/t/003_methods.t
+++ b/t/003_methods.t
@@ -63,6 +63,9 @@ use Class::MOP::Method;
 
 my $Foo = Class::MOP::Class->initialize('Foo');
 
+is join(' ', sort $Foo->get_method_list),
+    'FOO_CONSTANT baaz bang bar baz blah cake evaled_foo floob pie';
+
 ok( $Foo->has_method('pie'),  '... got the method stub pie' );
 ok( $Foo->has_method('cake'), '... got the constant method stub cake' );