RosettaCodeData/Task/Break-OO-privacy/Perl-6/break-oo-privacy.pl6

class Foo {
    has $!shyguy = 42;
}
my Foo $foo .= new;

say $foo.^attributes.first('$!shyguy').get_value($foo);