sub get_desc()
 {
  my $self = shift;
  if (ref $self) {
   return ${ $self->{"_description"} };
  }
  else
  {
   return $self->{_description};
  }
 }