wx::thread(3) [osx man page]

Wx::Thread(3)						User Contributed Perl Documentation					     Wx::Thread(3)

NAME

       Thread - using wxPerl with threads

SYNOPSIS

	 # the order of these use()s is important
	 use threads;
	 use threads::shared;
	 use Wx;

	 my $DONE_EVENT : shared = Wx::NewEventType;

	 my $worker = threads->create( &work );

	 # create frames, etc
	 my $frame = Wx::Frame->new( ... );
	 EVT_COMMAND( $frame, -1, $DONE_EVENT, &done );
	 $app->MainLoop;

	 sub done {
	     my( $frame, $event ) = @_;

	     print $event->GetData;
	 }

	 sub work {
	     # ... do stuff, create a shared $result value

	     my $threvent = new Wx::PlThreadEvent( -1, $DONE_EVENT, $result );
	     Wx::PostEvent( $frame, $threvent );
	 }

	 # event handler
	 sub OnCreateThread {
	     # @_ = () is necessary to avoid "Scalars leaked"
	     my( $self, $event ) = @_; @_ = ();

	     threads->create( ... );
	 }

DESCRIPTION

       Threaded GUI application are somewhat different from non-GUI threaded applications in that the main thread (which runs the GUI) must never
       block.  Also, in wxWidgets, no thread other than the main thread can manipulate GUI objects.  This leads to a hybrid model where worker
       threads must send events to the main thread in order to change the GUI state or signal their termination.

       Order of module loading

       It's necessary for "use Wx" to happen after <use threads::shared>.

       Sending events from worker threads

       "Wx::PlThreadEvent" can be used to communicate between worker and GUI threads.  The event can carry a shared value between threads.

	 my $DONE_EVENT : shared = Wx::NewEventType;

	 sub work {
	     # ... do some stuff
	     my $progress = new Wx::PlThreadEvent( -1, $DONE_EVENT, $progress );
	     Wx::PostEvent( $frame, $progress );

	     # ... do stuff, create a shared $result value
	     my $end = new Wx::PlThreadEvent( -1, $DONE_EVENT, $result );
	     Wx::PostEvent( $frame, $end );
	 }

       The target of the event can be any "Wx::EvtHandler"

       Receiving events from worker threads

       "Wx::PlThreadEvent" is a command event and can be handled as such.  The "->GetData" method can be used to retrieve the shared data
       contained inside the event.

	 my $DONE_EVENT : shared = Wx::NewEventType;

	 EVT_COMMAND( $frame, -1, $DONE_EVENT, &done );

	 sub done {
	     my( $frame, $event ) = @_;

	     print $event->GetData;
	 }

       Creating new threads

       Creating new threads from event handlers works without problems except from a little snag.  In order not to trigger a bug in the Perl
       interpreter, all event handler that directly or indirectly cause a thread creation must clean @_ before starting the thread.

       For example:

	 sub OnCreateThread {
	     my( $self, $event ) = @_; @_ = ();

	     threads->create( ... );
	 }

       failure to do that will cause "scalars leaked" warnings from the Perl interpreter.

perl v5.10.0							    2007-04-28							     Wx::Thread(3)

Check Out this Related Man Page

Simple(3pm)						User Contributed Perl Documentation					       Simple(3pm)

NAME

       Thread::Pool::Simple - A simple thread-pool implementation

SYNOPSIS

	 use Thread::Pool::Simple;

	 my $pool = Thread::Pool::Simple->new(
			min => 3,	    # at least 3 workers
			max => 5,	    # at most 5 workers
			load => 10,	    # increase worker if on average every worker has 10 jobs waiting
			init => [&init_handle, $arg1, $arg2, ...]   # run before creating worker thread
			pre => [&pre_handle, $arg1, $arg2, ...]   # run after creating worker thread
			do => [&do_handle, $arg1, $arg2, ...]	   # job handler for each worker
			post => [&post_handle, $arg1, $arg2, ...] # run before worker threads end
			passid => 1,	    # whether to pass the job id as the first argument to the &do_handle
			lifespan => 10000,  # total jobs handled by each worker
		      );

	 my ($id1) = $pool->add(@arg1); # call in list context
	 my $id2 = $pool->add(@arg2);	# call in scalar conetxt
	 $pool->add(@arg3)		# call in void context

	 my @ret = $pool->remove($id1); # get result (block)
	 my $ret = $pool->remove_nb($id2); # get result (no block)

	 $pool->cancel($id1);		# cancel the job
	 $pool->cancel_all();		# cancel all jobs

	 $pool->join(); 		# wait till all jobs are done
	 $pool->detach();		# don't wait.

DESCRIPTION

       "Thread::Pool::Simple" provides a simple thread-pool implementaion without external dependencies outside core modules.

       Jobs can be submitted to and handled by multi-threaded `workers' managed by the pool.

AUTHOR

       Jianyuan Wu, <jwu@cpan.org>

COPYRIGHT AND LICENSE

       Copyright 2007 by Jianyuan Wu

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.1							    2010-10-04							       Simple(3pm)

Linux and UNIX Man Pages

wx::thread(3) [osx man page]

Check Out this Related Man Page