[perl #75858] [BUG] Can't use a where clause on an attribute without surrounding name and where clause in parentheses in Rakudo

[Carl Mäsak]

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


<masak> std: class A { has Int $.color where 1|2; }
<p6eval> std 31360: OUTPUT«===SORRY!===␤Two terms in a row at
/tmp/vVVvjpuKJP line 1:␤------> class A { has Int $.color ⏏where 1|2;
} [...] Parse failed␤FAILED 00:01
<TimToady> hmm
<masak> and here I was going to submit a rakudobug...
<masak> rakudo: class A { has Int $.color where 1|2; }
<p6eval> rakudo d2add4: OUTPUT«===SORRY!===␤Unable to parse blockoid,
couldn't find final '}' at line 11␤»
<masak> alpha: class A { has Int $.color where 1|2; }
<p6eval> alpha 30e0ed:  ( no output )
* masak likes alpha's response the best
<masak> TimToady: did that 'hmm' mean 'STD.pm6 should parse this --
wonder why it doesn't?' ?
<TimToady> yes
* masak submits rakudobug
* jnthn also surprised
<masak> rakudo: class A { has $.x where 1 }
<p6eval> rakudo d2add4: OUTPUT«===SORRY!===␤Unable to parse blockoid,
couldn't find final '}' at line 11␤»
<TimToady> std: class A { has (Int $.color where 1|2); }
<p6eval> std 31360: OUTPUT«ok 00:01 112m␤»
<jnthn> rakudo:  class A { has ($.x where 1) }
<p6eval> rakudo d2add4:  ( no output )
<jnthn> ah
<jnthn> Yeah, only works if we parse a siggy.
<masak> I'd expect it to work without the parens, though.
<jnthn> Same
<jnthn> Now sure how much of a pain it'll be.
<jnthn> Hopefully almost none.