sub member_bleh
{
 my $self = shift;
 $self->validate(); # will die() if data is invalid
 if (@_)
 {
  my $value = shift;
  if ($value < 15 or $value > 143.51)
  {
   die ("$value out of range (15 .. 143.51) in  member_bleh");
  }
  $self->{member_bleh} = $value;
 }
 return $self->{member_bleh};
}