An object that hold a node within a taxonomic tree.  Inherits from NestedSet.

  From Bio::Species
   classification
   common_name
   binomial

  Here are also the additional methods in Bio::Species that "might" be useful, but let us
  forget about these for now.
   genus
   species
   sub_species
   variant
   organelle
   division

  my $self = shift;
  my $newick = "";
  
  if($self->get_child_count() > 0) {
    $newick .= "(";
    my $first_child=1;
    foreach my $child (@{$self->sorted_children}) {  
      $newick .= "," unless($first_child);
      $newick .= $child->newick_format;
      $first_child = 0;
    }
    $newick .= ")";
  }
  
  $newick .= sprintf("\"%s\"", $self->name,);
  $newick .= sprintf(":%1.4f", $self->distance_to_parent) if($self->distance_to_parent > 0);

  if(!($self->has_parent)) {
    $newick .= ";";
  }
  return $newick;

  my $self = shift;
  my $classification = shift;
  my $full = shift;

  if ($self->get_child_count > 1) {
    throw("Can't classification on a multifurcating tree\n");
  } elsif ($self->get_child_count == 1) {
    my $child = $self->children->[0];
    if ($full) {
      unshift @$classification, $child->name unless ($child->rank eq "subgenus"
                                                     || $child->rank eq "subspecies"
                                                     || $child->rank eq "species");
    } else {
      unless ($child->genbank_hidden_flag || $child->rank eq "subgenus") {
        unshift @$classification, $child->name;
      }
    }
    unless ($child->rank eq 'species') {
      $child->_add_child_name_to_classification($classification, $full);
    }
  }

  my $self = shift;
  if ($self->has_tag('scientific name') && ($self->rank eq 'species' || $self->rank eq 'subspecies')) {
    return $self->get_tagvalue('scientific name');
  } else {
    warning("taxon_id=",$self->node_id," is not a species or subspecies. So binomial is undef\n");
    return undef;
  }

  my $self =shift;
  my @args = @_;

  my ($separator, $full);
  if (scalar @args) {
    ($separator, $full) = rearrange([qw(SEPARATOR FULL)], @args);
  }

  $separator = " " unless(defined $separator);
  $full = 0 unless (defined $full);

  $self->{"_separator"} = $separator unless (defined $self->{"_separator"});
  $self->{"_separator_full"} = $separator unless (defined $self->{"_separator_full"});

  $self->{'_classification'} = undef unless ($self->{"_separator"} eq $separator);
  $self->{'_classification_full'} = undef unless ($self->{"_separator_full"} eq $separator);

  return $self->{'_classification_full'} if ($full && defined $self->{'_classification_full'});
  return $self->{'_classification'} if (!$full && defined $self->{'_classification'});

  my $root = $self->root;
  my @classification;
  unless ($root->name eq "root") {
    unshift @classification, $self->name;
  }
  unless ($root->get_child_count == 0) {
    $root->_add_child_name_to_classification(\@classification, $full);
  }
  if ($self->rank eq 'species' || $self->rank eq 'subspecies') {
    my ($genus, $species, $subspecies) = split(" ", $self->binomial);
    unshift @classification, $species;
    unshift @classification, $subspecies if (defined $subspecies);
  }


  if ($full) {
    $self->{'_classification_full'} = join($separator,@classification);
    $self->{"_separator_full"} = $separator;
    return $self->{'_classification_full'};
  } else {
    $self->{'_classification'} = join($separator,@classification);
    $self->{"_separator"} = $separator;
    return $self->{'_classification'};
  }

  my $self = shift;
  if ($self->has_tag('genbank common name') && $self->rank eq 'species') {
    return $self->get_tagvalue('genbank common name');
  } else {
    return undef;
  }

  my $self = shift;
  
  my $mycopy = $self->SUPER::copy;
  bless $mycopy, "Bio::EnsEMBL::Compara::NCBITaxon";
  
  $mycopy->ncbi_taxid($self->ncbi_taxid);
  $mycopy->rank($self->rank);
  $mycopy->genbank_hidden_flag($self->genbank_hidden_flag);

  return $mycopy;

  my $self = shift;
  my $value = shift;
  $self->node_id($value) if($value); 
  return $self->node_id;

  my $self = shift;
  if ($self->has_tag('ensembl alias name')) {
    return $self->get_tagvalue('ensembl alias name');
  } else {
    warning("taxon_id=",$self->node_id," is not a species or subspecies. So ensembl_alias is undef\n");
    return undef;
  }

  my $self = shift;

  #Not checking for rank as we do above, because we do not get dog since the
  #rank for dog is subspecies (ensembl-51).
  if ($self->has_tag('ensembl alias name')) {
    return $self->get_tagvalue('ensembl alias name');
  } else {
    return undef;
  }

  my $self = shift;
  $self->{'_genbank_hidden_flag'} = shift if(@_);
  return $self->{'_genbank_hidden_flag'};

  my $self = shift;

  unless (defined $self->{'_genus'}) {
    my ($genus, $species, $subspecies) = split(" ", $self->binomial);
    $self->{'_species'} = $species;
    $self->{'_genus'} = $genus;
    $self->{'_subspecies'} = $subspecies;
  }

  return $self->{'_genus'};

  my $self = shift;
  return $self->short_name;

  my $self = shift;
  my $value = shift;
  $self->node_id($value) if($value); 
  return $self->node_id;

  my $self  = shift;
  printf("(%s", $self->node_id);
  printf(" %s", $self->rank) if($self->rank);
  print(")");
  printf("%s", $self->name) if($self->name);
  print("\n");
}

1;

  my $self = shift;
  $self->{'_rank'} = shift if(@_);
  return $self->{'_rank'};

  my $self = shift;
  my $name = $self->name;
  $name =~  s/(\S)\S+\s(\S{3})\S+/$1$2/;
  $name =~ s/\ //g;
  return $name;

  my $self = shift;

  unless (defined $self->{'_species'}) {
    my ($genus, $species, $subspecies) = split(" ", $self->binomial);
    $self->{'_species'} = $species;
    $self->{'_genus'} = $genus;
    $self->{'_subspecies'} = $subspecies;
  }

  return $self->{'_species'};

  my $self = shift;

  unless (defined $self->{'_species'}) {
    my ($genus, $species, $subspecies) = split(" ", $self->binomial);
    $self->{'_species'} = $species;
    $self->{'_genus'} = $genus;
    $self->{'_subspecies'} = $subspecies;
  }

  return $self->{'_species'};

  my $self = shift;
  my $value = shift;
  $self->node_id($value) if($value); 
  return $self->node_id;

  Contact Jessica Severin on implemetation/design detail: jessica@ebi.ac.uk
  Contact Ewan Birney on EnsEMBL in general: birney@sanger.ac.uk