[MOBY-guts] biomoby commit

[Enrique de Andres Saiz]

deandres
Wed Feb  7 14:43:49 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Async
In directory dev.open-bio.org:/tmp/cvs-serv24294

Modified Files:
	LSAE.pm 
Log Message:
Initialized the attributes of the LSAE::AnalysisEventBlock class when an xml is passed to the method new.
moby-live/Perl/MOBY/Async LSAE.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Async/LSAE.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/Async/LSAE.pm	2006/12/04 08:27:52	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/Async/LSAE.pm	2007/02/07 19:43:49	1.2
@@ -240,22 +240,32 @@
 	my $this = shift;
 	my $class = ref($this) || $this;
 	my $self = {};
-	$self->{type} = 0;
-	$self->{id} = undef;
-	$self->{timestamp} = undef;
-	$self->{message} = undef;
-	$self->{percentage} = undef;
-	$self->{previous_state} = undef;
-	$self->{new_state} = undef;
-	$self->{total_steps} = undef;
-	$self->{steps_completed} = undef;
-	$self->{remaining} = undef;
+	bless $self, $class;
 	if (@_) {
 		$self->{XML} = shift;
-	} else {
+		$self->type;
+		$self->id;
+		$self->timestamp;
+		$self->message;
+		$self->percentage;
+		$self->previous_state;
+		$self->new_state;
+		$self->total_steps;
+		$self->steps_completed;
+		$self->remaining;
+	} else  {
 		$self->{XML} = undef;
+		$self->{type} = 0;
+		$self->{id} = undef;
+		$self->{timestamp} = undef;
+		$self->{message} = undef;
+		$self->{percentage} = undef;
+		$self->{previous_state} = undef;
+		$self->{new_state} = undef;
+		$self->{total_steps} = undef;
+		$self->{steps_completed} = undef;
+		$self->{remaining} = undef;
 	}
-	bless $self, $class;
 	return($self);
 }