sub current_balance {
  my $self = shift;
  if (@_) {
    my $new = shift;
    croak "not a number"
      unless Scalar::Util::looks_like_number($new);
    $self->{current_balance} = $new;
  }
  return $self->{current_balance};
}