From @masak

<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.

From @coke

No change in year+.

--
Will "Coke" Coleda

@coke - Status changed from 'new' to 'open'

From @diakopter

On Thu Oct 20 17​:46​:28 2011, coke wrote​:

No change in year+.

Now outputs​:

14​:40 < diakopter> rakudo​: class A { has $c where 1; }
14​:40 <+p6eval> rakudo 223419​: OUTPUT«===SORRY!===␤Contextual
%*PARAM_INFO not found␤»

From @usev6

All of the above parses now (on Moar, Parrot and JVM)​:

$ perl6 -e 'class A { has ($.x where 1) }; say "alive"'
alive

$ perl6 -e 'class A { has $.x where 1 }; say "alive"'
alive

$ perl6-m -e 'class A { has $x where 1; }; say "alive"'
alive

$ perl6 -e 'class A { has Int $.color where 1|2; }; say "alive"'
alive

STD also agrees​:

$ viv -c -e 'class A { has Int $.color where 1|2; }'
syntax OK

But before adding tests I wonder whether the where clause has any effect. Shouldn't the following complain that $.color is restricted to values 1 and 2?

$ perl6 -e 'class A { has Int $.color where 1|2 }; my $a = A.new( color => 3 ); say $a;'
A.new(color => 3)

From @usev6

On Thu Oct 16 02​:51​:19 2014, bartolin@​gmx.de wrote​:

But before adding tests I wonder whether the where clause has any
effect. Shouldn't the following complain that $.color is restricted to
values 1 and 2?

$ perl6 -e 'class A { has Int $.color where 1|2 }; my $a = A.new(
color => 3 ); say $a;'
A.new(color => 3)

I found ticket 122109 (https://rt-archive.perl.org/perl6/Ticket/Display.html?id=122109) which is a about where clauses on attributes NYI.

So I added a test for this ticket to S12-class/attributes.t with the following commit​: Raku/roast@cc6dfe8bd8. I'm closing this ticket now.

@usev6 - Status changed from 'open' to 'resolved'