update_package_flag in alias

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 07a4d41..c79e174 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -720,6 +720,8 @@ sub alias_method {
     $self->add_package_symbol(
         { sigil => '&', type => 'CODE', name => $method_name } => $body
     );
+
+    $self->update_package_cache_flag; # the method map will not list aliased methods
 }
 
 sub has_method {