sub temperature {
  my ($self, $t) = @_;
  if (1 < @_) {
    $$self{temperature} = $t;
  }
  return $$self{temperature};
}