[Bioperl-guts-l] bioperl-live/Bio/Graph SimpleGraph.pm,1.14,1.15

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jun 14 10:16:13 EDT 2007


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

Modified Files:
	SimpleGraph.pm 
Log Message:
removed bad "new Bio::Module" syntax, replaced with "Bio::Module->new"

Index: SimpleGraph.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graph/SimpleGraph.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** SimpleGraph.pm	26 Sep 2006 22:03:07 -0000	1.14
--- SimpleGraph.pm	14 Jun 2007 14:16:11 -0000	1.15
***************
*** 736,740 ****
  sub union {
    my($self,$other)=@_;
!   my $result=new Bio::Graph::SimpleGraph;
    $result->add_node($self->nodes,$other->nodes);
    $result->add_edge($self->edges,$other->edges);
--- 736,740 ----
  sub union {
    my($self,$other)=@_;
!   my $result=Bio::Graph::SimpleGraph->new();
    $result->add_node($self->nodes,$other->nodes);
    $result->add_edge($self->edges,$other->edges);
***************
*** 743,747 ****
  sub intersection {
    my($self,$other)=@_;
!   my $result=new Bio::Graph::SimpleGraph;
    for my $node ($self->nodes) {
      next unless $other->has_node($node);
--- 743,747 ----
  sub intersection {
    my($self,$other)=@_;
!   my $result=Bio::Graph::SimpleGraph->new();
    for my $node ($self->nodes) {
      next unless $other->has_node($node);
***************
*** 757,769 ****
  sub traversal {
    my($self,$start,$order,$what)=@_;
!   new Bio::Graph::SimpleGraph::Traversal(-graph=>$self,-start=>$start,-order=>$order,-what=>$what);
  }
  sub node_traversal {
    my($self,$start,$order)=@_;
!   new Bio::Graph::SimpleGraph::Traversal(-graph=>$self,-start=>$start,-order=>$order,-what=>'node');
  }
  sub edge_traversal {
    my($self,$start,$order)=@_;
!   new Bio::Graph::SimpleGraph::Traversal(-graph=>$self,-start=>$start,-order=>$order,-what=>'edge');
  }
  
--- 757,769 ----
  sub traversal {
    my($self,$start,$order,$what)=@_;
!   Bio::Graph::SimpleGraph::Traversal->new(-graph=>$self,-start=>$start,-order=>$order,-what=>$what);
  }
  sub node_traversal {
    my($self,$start,$order)=@_;
!   Bio::Graph::SimpleGraph::Traversal->new(-graph=>$self,-start=>$start,-order=>$order,-what=>'node');
  }
  sub edge_traversal {
    my($self,$start,$order)=@_;
!   Bio::Graph::SimpleGraph::Traversal->new(-graph=>$self,-start=>$start,-order=>$order,-what=>'edge');
  }
  



More information about the Bioperl-guts-l mailing list