{
    package Person;
    use Class::Std;

    my %name_of : ATTR(init_arg => 'name',  get => 'name', set => 'name');
}

package main;

my $guy = Person->new({name => 'Bubba'});
print "name: ", $guy->get_name, "\n";

$guy->set_name('Gump');
print "name: ", $guy->get_name, "\n";