[Bioperl-guts-l] bioperl-run/Bio/Tools/Run/AnalysisFactory Pise.pm, 1.9, 1.10 soap.pm, 1.8, 1.9

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jun 14 11:23:11 EDT 2007


Update of /home/repository/bioperl/bioperl-run/Bio/Tools/Run/AnalysisFactory
In directory dev.open-bio.org:/tmp/cvs-serv24084/Bio/Tools/Run/AnalysisFactory

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

Index: Pise.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/Bio/Tools/Run/AnalysisFactory/Pise.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Pise.pm	4 Jul 2006 22:23:32 -0000	1.9
--- Pise.pm	14 Jun 2007 15:23:09 -0000	1.10
***************
*** 18,22 ****
  
    # Build a Pise factory
!   my $factory = new Bio::Tools::Run::AnalysisFactory::Pise();
  
    # Then create an application object (Pise::Run::Tools::PiseApplication):
--- 18,22 ----
  
    # Build a Pise factory
!   my $factory = Bio::Tools::Run::AnalysisFactory::Pise->new();
  
    # Then create an application object (Pise::Run::Tools::PiseApplication):
***************
*** 47,51 ****
  application objects, that let you submit jobs on a Pise server.
  
!   my $factory = new Bio::Tools::Run::AnalysisFactory::Pise(
                                                -email => 'me at myhome');
  
--- 47,51 ----
  application objects, that let you submit jobs on a Pise server.
  
!   my $factory = Bio::Tools::Run::AnalysisFactory::Pise->new(
                                                -email => 'me at myhome');
  

Index: soap.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/Bio/Tools/Run/AnalysisFactory/soap.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** soap.pm	4 Jul 2006 22:23:32 -0000	1.8
--- soap.pm	14 Jun 2007 15:23:09 -0000	1.9
***************
*** 18,22 ****
  
    use Bio::Tools::Run::AnalysisFactory;
!   my $list = new Bio::Tools::Run::AnalysisFactory (-access => 'soap')
       ->available_analyses;
    print join ("\n", @$list) . "\n";
--- 18,22 ----
  
    use Bio::Tools::Run::AnalysisFactory;
!   my $list = Bio::Tools::Run::AnalysisFactory->new(-access => 'soap')
       ->available_analyses;
    print join ("\n", @$list) . "\n";
***************
*** 124,128 ****
  =head2 _initialize
  
!  Usage   : my $factory = new Bio::Tools::Run::AnalysisFactory (@args);
             (_initialize is internally called from the 'new()' method)
   Returns : nothing interesting
--- 124,128 ----
  =head2 _initialize
  
!  Usage   : my $factory = Bio::Tools::Run::AnalysisFactory->new(@args);
             (_initialize is internally called from the 'new()' method)
   Returns : nothing interesting
***************
*** 302,306 ****
      my @httpproxy = ('-httpproxy', $self->{'_httpproxy'}) if $self->{'_httpproxy'};
  
!     new Bio::Tools::Run::Analysis (@name, @location, @httpproxy, @access);
  }
  
--- 302,306 ----
      my @httpproxy = ('-httpproxy', $self->{'_httpproxy'}) if $self->{'_httpproxy'};
  
!     Bio::Tools::Run::Analysis->new(@name, @location, @httpproxy, @access);
  }
  



More information about the Bioperl-guts-l mailing list