sub name :lvalue { shift->name }

# and later

$object->name = 
  [qw/ random unvalidated value which breaks encapsulation /];

##</code><code>##

sub name {
  my $self = shift;
  return $self->{name} unless @_;
  $self->{name} = shift;
  return $self;
}

##</code><code>##

sub set_name {
  my $self = shift;
  croak "set_name() requires a name, silly!" unless @_;
  $self->{name} = shift; # insert other validation here
}

##</code><code>##

$object->name($name);
$object->age($age);
$object->id($id); # huh?

##</code><code>##

$object->set_name($name);
$object->set_age($age);
$object->set_id($id); # huh?