[MOBY-guts] biomoby commit

[Enrique de Andres Saiz]

deandres
Thu Feb  8 09:19:37 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Async
In directory dev.open-bio.org:/tmp/cvs-serv26793

Modified Files:
	Service.pm 
Log Message:
Corrected problem with the method new
moby-live/Perl/MOBY/Async Service.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Async/Service.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/Async/Service.pm	2006/12/04 08:27:52	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/Async/Service.pm	2007/02/08 14:19:37	1.2
@@ -108,8 +108,6 @@
 	my $class = ref($this) || $this;
 	
 	my $self = $class->SUPER::new(%args);
-	return undef unless defined($self);
-	$self->{serviceName} = &_getServiceName($self->{_soapService});
 	$self->{silent} = 1;
 	
 	bless $self, $class;
@@ -325,24 +323,6 @@
 	die "ERROR:  ".$ans->faultstring if ($ans->fault);
 }
 
-sub _getServiceName {
-	my ($service) = @_;
-	no strict;
-	my @methods = @{ join '::', ref $service, 'EXPORT_OK' };
-	my $serviceName;
-	if (scalar(@methods) == 1) {
-		$serviceName = shift(@methods);
-	} else {
-		foreach my $method (@methods) {
-			if ($method =~ /_submit$/) {
-				$serviceName = $`;
-				last;
-			}
-		}
-	}
-	return $serviceName;
-}
-
 sub _getServiceEndpoint {
 	my ($wsdl) = @_;