Help for this page
sub set_foo { my ($self, $val) = @_; $self->{foo} = $val; }
sub set_foo { my ($self, $val) = @_; $self->{ref($self)}{foo} = $val; }