[perl #112906] Enum type object invocation leads to segmentation fault

[via RT]

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


< moritz> r: enum day (:Sun(1), 'Mon', 'Tue', 'Wed', 'Thu', 'Fri',
'Sat'); say day(Tue).Str
<+p6eval> rakudo 2ac569: OUTPUT«Method 'Str' not found for invocant of
class 'Undef'␤  in block <anon> at /tmp/dR0d80NyvO:1␤␤»
< moritz> r: enum day (:Sun(1), 'Mon', 'Tue', 'Wed', 'Thu', 'Fri',
Sat'); say day(Tue) eq day(3)
<+p6eval> rakudo 2ac569: OUTPUT«(signal SEGV)»
* moritz submits rakudobug

Further golfed by diakopter:
10:38 < diakopter> r: enum day (); ~day()
10:38 <+p6eval> rakudo 2ac569: OUTPUT«(signal SEGV)»


that's what S12-enums/pseudo-functional.t does.