From @masak

It feels a bit odd that the below two one-liners don't work the same
way in Rakudo r33860.

$ perl6 -e 'class A { my $a = method { say self.WHAT }; method x {
self.$a() } }; A.new.x'
A

$ perl6 -e 'my $a = method { say self.WHAT }; class A { method x {
self.$a() } }; A.new.x'
invoke() not implemented in class 'Undef'
[...]

From @jnthn

On Sun Dec 14 02​:26​:54 2008, masak wrote​:

It feels a bit odd that the below two one-liners don't work the same
way in Rakudo r33860.

$ perl6 -e 'class A { my $a = method { say self.WHAT }; method x {
self.$a() } }; A.new.x'
A

$ perl6 -e 'my $a = method { say self.WHAT }; class A { method x {
self.$a() } }; A.new.x'
invoke() not implemented in class 'Undef'
[...]

Actually it's a different problem. Because this works​:

my $a = method { say self.WHAT }; class A { method x($m) { self.$m() }
}; A.new.x($a)

It's actually because lexicals declared in the outer scope of a class
are not visible within the class (which in turn is, IIRC, due to a :load
:init with :outer bug in Parrot). So changing the title of this ticket
to reflect that.

Thanks,

Jonathan

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

From dave.whipp@gmail.com

example​:

<dwhipp>pugs​: my $global = 1; class A { method foo { say "foo =
$global" } }; A.foo
<p6eval>pugs​: OUTPUT«foo = 1␤»

<dwhipp>rakudo​: my $global = 1; class A { method foo { say "foo =
$global" } }; A.foo
<p6eval>rakudo 34765​: OUTPUT«foo = ␤»

From @pmichaud

This is a duplicate of RT #​61356, merging tickets.

Pm

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

From @moritz

This now works (as of 9d76f3), fixed by jnthn++, and unfudged tests.

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