From @masak

<ash_> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl; #
that looks funny too...
<p6eval> rakudo 19931f​: OUTPUT«.new(a => 1)␤»
<ash_> but i have no idea what is "right", just looks funny...
* masak submits rakudobug
<pmichaud> rakudo​: my $a = class { has $a; }; say $a.perl;
<p6eval> rakudo 19931f​: OUTPUT«␤»

On the principle that an eval should give you back what you started
with, probably both of these are wrong. Might not be easy or even
doable to get right, but we should probably avoid spitting out
something that we know will be eval'd wrongly. Might even be better to
die or fail in that case.

From @coke

On Thu Aug 05 14​:14​:15 2010, masak wrote​:

<ash_> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl; #
that looks funny too...
<p6eval> rakudo 19931f​: OUTPUT«.new(a => 1)␤»
<ash_> but i have no idea what is "right", just looks funny...
* masak submits rakudobug
<pmichaud> rakudo​: my $a = class { has $a; }; say $a.perl;
<p6eval> rakudo 19931f​: OUTPUT«␤»

On the principle that an eval should give you back what you started
with, probably both of these are wrong. Might not be easy or even
doable to get right, but we should probably avoid spitting out
something that we know will be eval'd wrongly. Might even be better to
die or fail in that case.

These now output​:

20​:47 < [Coke]> rakudo​: my $a = class { has $a; }; say $a.perl;
20​:47 <+p6eval> rakudo 545638​: OUTPUT«<anon>␤»
20​:47 < [Coke]> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl;
20​:47 <+p6eval> rakudo 545638​: OUTPUT«<anon><-856690017062603138>␤»

--
Will "Coke" Coleda

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

From @coke

On Tue Oct 04 17​:48​:14 2011, coke wrote​:

On Thu Aug 05 14​:14​:15 2010, masak wrote​:

<ash_> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl; #
that looks funny too...
<p6eval> rakudo 19931f​: OUTPUT«.new(a => 1)␤»
<ash_> but i have no idea what is "right", just looks funny...
* masak submits rakudobug
<pmichaud> rakudo​: my $a = class { has $a; }; say $a.perl;
<p6eval> rakudo 19931f​: OUTPUT«␤»

On the principle that an eval should give you back what you started
with, probably both of these are wrong. Might not be easy or even
doable to get right, but we should probably avoid spitting out
something that we know will be eval'd wrongly. Might even be better to
die or fail in that case.

These now output​:

20​:47 < [Coke]> rakudo​: my $a = class { has $a; }; say $a.perl;
20​:47 <+p6eval> rakudo 545638​: OUTPUT«<anon>␤»
20​:47 < [Coke]> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl;
20​:47 <+p6eval> rakudo 545638​: OUTPUT«<anon><-856690017062603138>␤»

Slight change​:

01​:21 <[Coke]> rakudo​: my $a = class { has $a; }; say $a.perl;
01​:21 <camelia> rakudo bfd850​: OUTPUT«<anon>␤»
01​:21 <[Coke]> rakudo​: my $a = class { has $a; }; say $a.new(a => 1).perl;
01​:21 <camelia> rakudo bfd850​: OUTPUT«<anon>.new()␤»

--
Will "Coke" Coleda

From @zoffixznet

Slightly different output now​:

<Zoffix> m​: my $a = class { has $a; }; say $a.perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|56051152>␤»
<Zoffix> m​: my $a = class { has $a; }; say $a.new(a => 1).perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|65422928>.new␤»

From @MasterDuke17

On Mon Jul 11 17​:20​:58 2016, cpan@​zoffix.com wrote​:

Slightly different output now​:

<Zoffix> m​: my $a = class { has $a; }; say $a.perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|56051152>␤»
<Zoffix> m​: my $a = class { has $a; }; say $a.new(a => 1).perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|65422928>.new␤»

With $.a instead of $a​:

perl6 -e 'my

$a = class { has $

perl6 -e 'my

$a = class { has $

perl6 --version
This is Rakudo version 2016.08.1-59-gec9e814 built on MoarVM version 2016.08-23-gfa9528b
implementing Perl 6.c.

The equivalent output with a named class​:

perl6 -e 'class A { has $.a }; say A.new(a => 1).perl;'
A.new(a => 1)

perl6 -e 'class A { has $.a }; say A.new.perl;'
A.new(a => Any)

perl6 -e 'class A { has $a }; say A.new(a => 1).perl;'
A.new

perl6 -e 'class A { has $a }; say A.new.perl;'
A.new

I'm not sure what would be better than the current behavior for anonymous classes.
Maybe 'class { has

$.a }.new' or 'class { has $

From @MasterDuke17

On Wed, 31 Aug 2016 19​:06​:13 -0700, ddgreen@​gmail.com wrote​:

On Mon Jul 11 17​:20​:58 2016, cpan@​zoffix.com wrote​:

Slightly different output now​:

<Zoffix> m​: my $a = class { has $a; }; say $a.perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|56051152>␤»
<Zoffix> m​: my $a = class { has $a; }; say $a.new(a => 1).perl;
<camelia> rakudo-moar d075c8​: OUTPUT«<anon|65422928>.new␤»

With $.a instead of $a​:

perl6 -e 'my

Extra open brace or missing close brace

$a = class { has $

.a }; say $a.new.perl;'
<anon|61557440>.new(a => Any)

perl6 -e 'my

Extra open brace or missing close brace

$a = class { has $

.a }; say $a.new(a => 1).perl;'
<anon|70970080>.new(a => 1)

perl6 --version
This is Rakudo version 2016.08.1-59-gec9e814 built on MoarVM version
2016.08-23-gfa9528b
implementing Perl 6.c.

The equivalent output with a named class​:

perl6 -e 'class A { has $.a }; say A.new(a => 1).perl;'
A.new(a => 1)

perl6 -e 'class A { has $.a }; say A.new.perl;'
A.new(a => Any)

perl6 -e 'class A { has $a }; say A.new(a => 1).perl;'
A.new

perl6 -e 'class A { has $a }; say A.new.perl;'
A.new

I'm not sure what would be better than the current behavior for
anonymous classes.
Maybe 'class { has

Extra close brace or missing open brace

$.a }.new' or 'class { has $

.a }.new(a => 1)'?

Some discussion on #perl6-dev, https://irclog.perlgeek.de/perl6-dev/2017-03-05#i_14208515

[09​:22] <MasterDuke> m​: my

$a = class { has $

$x = do { class A { has $

$x = do { class A { has $

$a = class A { has $

If I get this correctly, the reference to <anon|xxx> is not correct, since it does not allow to get re-create the original object. However, it's not clear, with an anonymous class, what could be done, short of re-creating the declaration of the class or throwing.

I guess it comes down to invoking some principle of what .perl should output, and where its obligations and capabilities end. I agree that doing something sensible when the class is anonymous is difficult; but according to what specification is it better to emit something that can't be "read back in" rather than fail with an error? In my understanding, the original purpose of .perl is to produce code that can be read back in.

@masak s/.perl/.raku/ :-)

Personally, I'd rather have .raku would generate something that produces an error telling that there is no code representation possible for the source of the string given to EVAL, than having something that just silently does the wrong thing.