Select Code to Download

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

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