From @masak

Rakudo r33577 can handle a .WHAT call on an attribute whose type is a class...

$ perl6 -e 'class A {}; class B { has A $.attr is rw }; my $b = B.new(
attr => A.new ); say $b.attr.WHAT'
A

...but not if the class happens to be the one in which the attribute
was declared.

$ perl6 -e 'class A { has A $.attr is rw }; my $b = A.new; $b.attr = $b'
Method 'ACCEPTS' not found for non-object
[...]

From @moritz

On Sat Dec 06 14​:04​:46 2008, masak wrote​:

Rakudo r33577 can handle a .WHAT call on an attribute whose type is a
class...

$ perl6 -e 'class A {}; class B { has A $.attr is rw }; my $b = B.new(
attr => A.new ); say $b.attr.WHAT'
A

...but not if the class happens to be the one in which the attribute
was declared.

$ perl6 -e 'class A { has A $.attr is rw }; my $b = A.new; $b.attr =
$b'
Method 'ACCEPTS' not found for non-object
[...]

Added tests for that to t/spec/S12-attributes/instance.t.

Moritz

The RT System itself - Status changed from 'new' to 'open'

From @jnthn

On Sun Dec 07 04​:18​:03 2008, moritz wrote​:

On Sat Dec 06 14​:04​:46 2008, masak wrote​:

Rakudo r33577 can handle a .WHAT call on an attribute whose type is a
class...

$ perl6 -e 'class A {}; class B { has A $.attr is rw }; my $b = B.new(
attr => A.new ); say $b.attr.WHAT'
A

...but not if the class happens to be the one in which the attribute
was declared.

$ perl6 -e 'class A { has A $.attr is rw }; my $b = A.new; $b.attr =
$b'
Method 'ACCEPTS' not found for non-object
[...]

Taking ticket; will deal with this after the rakudoreg changes are in.

Jonathan

From @moritz

This works now, tests are unfudge.

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