Changeset 10599 for trunk/Padre/lib/Padre/SlaveDriver.pm

Timestamp:

02/07/10 10:12:19 (2 years ago)

Author:

azawawi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/SlaveDriver.pm (modified) (6 diffs)

trunk/Padre/lib/Padre/SlaveDriver.pm

@@ -67 +67 @@
 SCOPE: {
     my $SlaveDriver;
+
     sub new {
         my $class = shift;
         return $SlaveDriver if defined $SlaveDriver;
-        @_ = ();
+        @_           = ();
         $SlaveDriver = bless {
             cmd_queue  => Thread::Queue->new,
@@ -111 +112 @@
 
 sub spawn {
-    my $self = shift;
+    my $self         = shift;
     my $task_manager = shift;
     require Storable;
-    $self->{cmd_queue}->enqueue(
-        Storable::freeze( [ $task_manager->task_queue ] )
-    );
-    return threads->object(
-        $self->{tid_queue}->dequeue
-    );
+    $self->{cmd_queue}->enqueue( Storable::freeze( [ $task_manager->task_queue ] ) );
+    return threads->object( $self->{tid_queue}->dequeue );
 }
 
@@ -150 +147 @@
 sub cleanup {
     my $self = shift;
-    if (defined $self->{master} and defined $self->{cmd_queue}) {
+    if ( defined $self->{master} and defined $self->{cmd_queue} ) {
         $self->{cmd_queue}->enqueue('STOP');
         require Time::HiRes;
         Time::HiRes::usleep(5000); # 5 milli-sec
-        if ($self->{master}->is_joinable) {
+        if ( $self->{master}->is_joinable ) {
             $self->{master}->join;
         }
     }
+
     # TaskManager does handle thread *killing*
 }
@@ -168 +166 @@
 # Worker thread main loop
 sub _worker_loop {
-    my ( $queue ) = @_;
+    my ($queue) = @_;
     @_ = (); # hack to avoid "Scalars leaked"
 
@@ -175 +173 @@
 
     # Set the thread-specific main-window pointer
-    my $main = Padre->ide->wx; 
+    my $main = Padre->ide->wx;
 
     #warn threads->tid() . " -- Hi, I'm a thread.";
@@ -214 +212 @@
     while ( my $args = $inqueue->dequeue ) { # args is frozen [$main, $queue]
         last if $args eq 'STOP';
-        my $task_queue = Padre::SlaveDriver->new->task_queue;
-        my $worker_thread = threads->create(\&_worker_loop, $task_queue);
-        my $tid = $worker_thread->tid;
+        my $task_queue    = Padre::SlaveDriver->new->task_queue;
+        my $worker_thread = threads->create( \&_worker_loop, $task_queue );
+        my $tid           = $worker_thread->tid;
         $outqueue->enqueue($tid);
     }