Changeset 5816

Timestamp:

07/04/09 06:11:41 (3 years ago)

Author:

submersible_toaster

Message:

conform to service api . serializing fiddling

File:

• trunk/Padre-Plugin-Swarm/lib/Padre/Swarm/Service/Chat.pm (modified) (4 diffs)

trunk/Padre-Plugin-Swarm/lib/Padre/Swarm/Service/Chat.pm

@@ -25 +25 @@
 sub start { 
     my $self = shift;
-    
+    Padre::Util::debug('Starting chat service');
     my $mc = Padre::Swarm::Transport::Multicast->new();
     $mc->subscribe_channel( $_ )
@@ -40 +40 @@
 sub service_loop {
     my ($self,$message) = @_;
-    #Padre::Util::debug("Service [$self] loop!\n") ;
+    Padre::Util::debug("Service [$self] loop!\n") ;
     my $queue = $self->queue;
     #Padre::Util::debug("\t$queue " . $queue->pending , $/);
@@ -53 +53 @@
                 for @ready;
         while ( my ($payload,$frame) = splice(@messages,0,2) ) {
-            my $message = eval { $marshal->decode( $payload ) };
+            my $message = eval { $marshal->decode( $payload ); };
             unless ($message) {
                 $self->task_warn($@ );
@@ -85 +85 @@
 
 sub serialize {
-    my ($self) = @_;
+    my ($self) = shift;
     warn "SERIALIZE ! " . Dumper $self;
-    $self->SUPER::serialize();
+    $self->SUPER::serialize(@_);
     
 }