sub calculate_foo {
  my $self = shift;
  $self->foo($self->foo + 999);
  return $self->foo;
}