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