sub name($self) { return $self->{name}; } sub name($self, $name) { $self->{name} = $name; return $self; }