dynamic-accessor.p6

use v6;

class Foo { }

my $attr = Attribute.new(
	name => 'bar',
	has-accessor => True,
	package => Foo,
	type => Str
);

Foo.^add_attribute($attr);
Foo.^add_method('bar', method () {
	my @attrs = self.^attributes;
	say @attrs; # [Str bar]
	my $matching-attr = @attrs.grep({ $_.name eq 'bar' })[0];
	my $val = $matching-attr.get_value(self); # dies: P6opaque: 'no such attribute "bar"';
	return $val;
});
my $foo = Foo.new(bar => 'baz');
say $foo.bar;