[perl #69192] [BUG] MMD is dispatching too many times.

[via RT]

# New Ticket Created by  Jarrod 
# Please include the string:  [perl #69192]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=69192 >


It seems when you add more than one role with the same multimethod name
to a class at runtime, any methods of that same name inherited from the
first role appear to get called three times if called with the '.*' or
'.+' operators. Attached is a simple test case for it.

Expected output:
A
A2
B

Actual output:
A
A
A
A2
A2
A2
B

Test.p6
Description: Perl program