sub set_foo {
    my ($self, $val) = @_;
    $self->{foo} = $val;
}

##</code><code>##

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