add warning for long-deprecated alias_method method in MM::Role

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 57d790a..0111abe 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -418,6 +418,8 @@ sub get_method_list {
 }
 
 sub alias_method {
+    warn "The alias_method method is deprecated. Use add_method instead.\n";
+
     my $self = shift;
 
     $self->add_method(@_);