Setters

Setters are the same, but set the value of the data member:

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

Caller says:

    $object->set_foo("new foo"); # Change foo.