sub set_foo { 
    my $self = shift;
    my $val = shift;

    ${ *$self }{foo} = $val;
}