# New Ticket Created by Dave Olszewski
# Please include the string: [perl #76648]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76648 >
The following code, executed repeatedly, will produce different results,
seemingly based on the ordering of the junction:
$ perl6 -e 'class Foo { has $.bar; has $.baz; has $.biff };
Foo.^methods.join(", ").say; say ("biff" eq any(Foo.^methods) ?? "yay" !!
"nay")'
baz, bar, biff, uniq, isa, map, classify, kv, min, max, pick, flat, first,
minmax, does, rotate, join, Numeric, elems, end, reduce, all, Str,
postcircumfix:<[ ]>, postcircumfix:<{ }>, list, at_key, pairs, one, ACCEPTS,
at_pos, any, sort, Seq, grep, values, none, can, reverse, keys, notdef, ,
BUILDALL, new, Bool, say, print, item, WALK, defined, BUILD, clone, perl,
WHICH, Capture, CREATE, PARROT, bless, WHENCE, WHERE
nay
$ perl6 -e 'class Foo { has $.bar; has $.baz; has $.biff };
Foo.^methods.join(", ").say; say ("biff" eq any(Foo.^methods) ?? "yay" !!
"nay")'
biff, baz, bar, ACCEPTS, at_pos, any, sort, Seq, grep, none, values, can,
reverse, keys, uniq, isa, map, classify, kv, min, max, pick, flat, first,
minmax, does, rotate, join, Numeric, elems, end, reduce, Str, all, list,
postcircumfix:<{ }>, postcircumfix:<[ ]>, at_key, pairs, one, BUILDALL, new,
Bool, say, print, item, WALK, defined, BUILD, clone, perl, WHICH, Capture,
CREATE, PARROT, bless, WHENCE, WHERE, notdef,
yay
