# New Ticket Created by Moritz Lenz
# Please include the string: [perl #63276]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=63276 >
Parrot r36678, Rakudo 0f87695c:
class Scissor { };
class Paper { };
class Stone { };
multi wins(Scissor $x, Paper $y) { 1 };
multi wins(Paper $x, Stone $y) { 1 };
multi wins(Stone $x, Scissor $y) { 1 };
multi wins(::T $x, T $y) { 0 };
multi wins($x, $y) { -1 };
say wins(Scissor.new, Paper.new);
# dies with 'Null PMC access in find_method()'
say wins(Paper.new, Paper.new);
# same, if moved further up
say wins(Stone.new, Paper.new);
I think this is also a bug, not 100% sure though:
./perl6 -e 'multi f(::T $x, T $y) { "first" }; multi f(Int $x, Num
$y) { "second" }; say f(1, 2)'
# output: second
P.S.: it would be nice if this bug could be fixed quickly, since I want
to use this code in an article for a fairly big IT magazine, and the
submission deadline is end of February. So if you fix this soon, we'll
get lots of good publicity cookies ;-)
--
Moritz Lenz
http://perlgeek.de/ | http://perl-6.de/ | http://sudokugarden.de/
