I'm trying to use Class::Std, as described in "Perl Best Practices". The following code works just fine:

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

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


package Person;
use Class::Std;
{
  my %name_of  :ATTR;
 
  sub BUILD {
    my ($self, $ident, $arg_ref) = @_;
    $name_of{$ident} = $arg_ref->{name};
    return;
  }
 
  sub get_name {
    my $self = shift;       
    return $name_of{ident $self};                 
  } 
 
  sub set_name {
    my ($self, $new_name) = @_;
    $name_of{ident $self} = $new_name;
    return;  
  }
}
[download]

But what I REALLY want to do is this:

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

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


package Person;
use Class::Std;
{
  my %name_of : ATTR(init_arg => 'name',  get => 'name', set => 'name'
+);
}
[download]

But when I try I get the error message:

Can't locate object method "get_name" via package "Person" at ./oop.pl
+ line 4
[download]

I've also tried the perl6 syntax:

:init_arg<name> :get<name> :set<name>
[download]

but I get the same error.

Obviously, I'm missing something really important here... can anyone please help me out?

Thanks!