Coro::State - create and manage simple coroutines
use Coro::State; $new = new Coro::State sub { print "in coroutine (called with @_), switching back\n"; $new->transfer($main); print "in coroutine again, switching back\n"; $new->transfer($main); }, 5; $main = new Coro::State; print "in main, switching to coroutine\n"; $main->transfer($new); print "back in main, switch to coroutine again\n"; $main->transfer($new); print "back in main\n";
This module implements coroutines. Coroutines, similar to continuations, allow you to run more than one "thread of execution" in parallel. Unlike threads this, only voluntary switching is used so locking problems are greatly reduced.
This module provides only low-level functionality. See Coro and related modules for a more useful process abstraction including scheduling.
Create a new coroutine and return it. The first transfer call to this coroutine will start execution at the given coderef. If, the subroutine returns it will be executed again.
transfer
The coderef you submit MUST NOT be a closure that refers to variables in an outer scope. This does NOT work.
If the coderef is omitted this function will create a new "empty" coroutine, i.e. a coroutine that cannot be transfered to but can be used to save the current coroutine in.
Save the state of the current subroutine in $prev and switch to the coroutine saved in $next.
$prev
$next
The "state" of a subroutine includes the scope, i.e. lexical variables and the current execution state. The $flags value can be used to specify that additional state be saved/restored, by ||-ing the following constants together:
$flags
||
Constant Effect SAVE_DEFAV save/restore @_ SAVE_DEFSV save/restore $_ SAVE_ERRSV save/restore $@
These constants are not exported by default. The default is subject to change (because we are still at an early development stage) but will stabilize. You have to make sure that the destination state is valid with respect to the flags, segfaults or worse will result otherwise.
If you feel that something important is missing then tell me. Also remember that every function call that might call transfer (such as Coro::Channel::put) might clobber any global and/or special variables. Yes, this is by design ;) You can always create your own process abstraction model that saves these variables.
Coro::Channel::put
The easiest way to do this is to create your own scheduling primitive like this:
sub schedule { local ($_, $@, ...); $old->transfer($new); }
IMPLEMENTORS NOTE: all Coro::State functions/methods expect either the usual Coro::State object or a hashref with a key named "_coro_state" that contains the real Coro::State object. That is, you can do:
$obj->{_coro_state} = new Coro::State ...; Coro::State::transfer(..., $obj);
This exists mainly to ease subclassing (wether through @ISA or not).
This function will be called on fatal errors. $error_msg and $error_coro return the error message and the error-causing coroutine (NOT an object) respectively. This API might change.
$error_msg
$error_coro
To be efficient (actually, to not be abysmaly slow), this module does some fair amount of caching (a possibly complex structure for every subroutine in use). If you don't use coroutines anymore or you want to reclaim some memory then you can call this function which will flush all internal caches. The caches will be rebuilt when needed so this is a safe operation.
This module has not yet been extensively tested. Expect segfaults and specially memleaks.
This module is not thread-safe. You must only ever use this module from the same thread (this requirenmnt might be loosened in the future).
Coro.
Marc Lehmann <pcg@goof.com> http://www.goof.com/pcg/marc/
To install Coro, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Coro
CPAN shell
perl -MCPAN -e shell install Coro
For more information on module installation, please visit the detailed CPAN module installation guide.