[Bioperl-guts-l] bioperl-live/Bio PhyloNetwork.pm,NONE,1.1

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-live/Bio
In directory dev.open-bio.org:/tmp/cvs-serv22364/Bio

Added Files:
	PhyloNetwork.pm 
Log Message:
Initial commit of Phylogenetic Network code from Gabriel Valiente and Gabriel Cardona

--- NEW FILE: PhyloNetwork.pm ---
# $Id: PhyloNetwork.pm,v 1.1 2007/11/27 23:13:22 jason Exp $
#
# Module for Bio::PhyloNetwork
#
# Cared for by Gabriel Cardona <gabriel(dot)cardona(at)uib(dot)es>
#
# Copyright Gabriel Cardona, Gabriel Valiente
#
# You may distribute this module under the same terms as perl itself

# POD documentation - main docs before the code

=head1 NAME

Bio::PhyloNetwork - Module to compute with Phylogenetic Networks

=head1 SYNOPSIS

 use strict;
[...1779 lines suppressed...]
    if ($self->{has_temporal_representation}) {
      foreach my $node (@nodes) {
	$str.= "v=$node; ";
	$str.= "\tt=".$self->{temporal_representation}->{$node}."\n";
      }
    } else {
      $str.= "Does not exist.\n";
    }
  }
  if (exists $self->{tripartitions}) {
    $str.= "Tripartitions:\n";
    foreach my $node (@nodes) {
      $str.= "v=$node; ";
      $str.= "\ttheta=".$self->{tripartitions}->{$node}."\n";
    }
  }
  return $str;
}

1;