[Bioperl-guts-l] bioperl commit

[Shawn Hoon]

shawnh
Thu Feb 20 07:06:01 EST 2003
Update of /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/Utils
In directory pub.open-bio.org:/tmp/cvs-serv22999/Utils

Modified Files:
	Converter.pm 
Log Message:
remove unused methods
bioperl-pipeline/Bio/Pipeline/Utils Converter.pm,1.14,1.15
===================================================================
RCS file: /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/Utils/Converter.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/Utils/Converter.pm	2003/02/20 11:08:59	1.14
+++ /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/Utils/Converter.pm	2003/02/20 12:06:01	1.15
@@ -122,12 +122,6 @@
     return $self;
 }
 
-=head2 _initialize
-
-Doing nothing here.
-
-=cut
-
 sub _initialize{
 	my ($self) = @_;
 	return;
@@ -168,34 +162,6 @@
     
 }
 
-=head2 ens_dbadaptor
-
-converter sometimes needs to access database to fetch the relevant informations, such as analysis id
-
-=cut
-
-# sub ens_dbadaptor{
-#   my ($self, @args) = @_;
-#
-#   my ($dbname, $host, $driver, $user, $pass) =
-#     $self->_rearrange([qw( DBNAME HOST DRIVER USER PASS )], @args);
-
-#   my $dba = new Bio::EnsEMBL::DBSQL::DBAdaptor->new(
-#      -user => $user,
-#      -dbname => $dbname,
-#      -host => $host,
-#      -driver => $driver
-#   );
-
-#  $self->{"_ens_dba"} = $dba;
-
-#   return $dba;
-# }
-
-=head2 _load_converter_module
-
-=cut
-
 sub _load_converter_module{
 	my ($self, $module) = @_;
 	$module = "Bio::Pipeline::Utils::Converter::$module";
@@ -234,25 +200,6 @@
 }
 
 
-=head2 dbID
-
-  Title   : dbID
-  Usage   : $conv->dbID($id);
-  Function: get/set for the dbID 
-  Returns : 
-  Args    : 
-
-=cut
-
-sub dbID {
-    my ($self,$arg) = @_;
-    if (defined($arg)) {
-      $self->{'_dbID'} = $arg;
-    }
-    return $self->{'_dbID'};
-}
-
-
 =head2 module
 
   Title   : module
@@ -289,31 +236,6 @@
     return $self->{'_method'};
 }
 
-
-=head2 rank
-
-  Title   : rank
-  Usage   : $conv->rank($rank);
-  Function: get/set for the rank
-  Returns :
-  Args    :
-
-=cut
-
-sub rank{
-    my ($self,$arg) = @_;
-
-    if (defined($arg)) {
-	    $self->{'_rank'} = $arg;
-    }
-
-    return $self->{'_rank'};
-}
-
-=head2 add_argument
-
-=cut
-
 sub add_argument{
 	my ($self, $arg) = @_;
 	if(!defined($self->{'_argument'})){