[perl #63812] MMD bug with one candidate, who have where trait

[via RT]

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


Hi there,

class C {
    proto method Foo ($any) { ":)".say }
    multi method Foo ($foo where { $_ eq "foo"}) { "$foo".say }
}
C.Foo("foo"); # foo
C.Foo("bar"); # should smile but
                    # die with "Parameter type check failed for $foo
in call to Foo"

Ilya