[perl #73680] [BUG] Typed undefined attributes/parameters aren't typed with the right undefined type object in Rakudo

[Will Coleda via RT]

On Sat Mar 20 07:49:13 2010, masak wrote:
> <bbkr> rakudo: grammar CSV { has Str $.sep }; say CSV.new(sep => 
",").sep
> <p6eval> rakudo 0bb373: OUTPUT«Any()␤»
> <bbkr> hmm, why "Any()" ?
> <masak> bbkr: it's the new 'undef'
> <jnthn> masak: Yes, but shoulda been Str.
> <masak> o.O
> <jnthn> erm, shoulda been "," actually
> <jnthn> masak: Typed attribute.
> * masak submits rakudobug
> <masak> rakudo: class A { has Str $.b }; say A.new().b.WHAT
> <p6eval> rakudo 0bb373: OUTPUT«Any()␤»

This seems to work now:

15:49 < [Coke]> rakudo: grammar CSV { has Str $.sep }; say CSV.new(sep 
=>
                ",").sep
15:49 <+p6eval> rakudo 142c41: OUTPUT«,␤»
15:49 < [Coke]> rakudo: class A { has Str $.b }; say A.new().b.WHAT
15:49 <+p6eval> rakudo 142c41: OUTPUT«Str()␤»


Closable with tests.

-- 
Will "Coke" Coleda