use Mojo::IOLoop::Subprocess;
# Operation that would block the event loop for 5 seconds
my $subprocess = Mojo::IOLoop::Subprocess->new;
$subprocess->run(
sub {
my $subprocess = shift;
sleep 5;
return '♥', 'Mojolicious';
},
sub {
my ($subprocess, $err, @results) = @_;
say "Subprocess error: $err" and return if $err;
say "I $results[0] $results[1]!";
}
);
# Start event loop if necessary
$subprocess->ioloop->start unless $subprocess->ioloop->is_running;
$subprocess->on(progress => sub {
my ($subprocess, @data) = @_;
...
});
Emitted in the parent process when the subprocess calls the progress method.
$subprocess->on(spawn => sub {
my $subprocess = shift;
...
});
Emitted in the parent process when the subprocess has been spawned.
$subprocess->on(spawn => sub {
my $subprocess = shift;
my $pid = $subprocess->pid;
say "Performing work in process $pid";
});
my $cb = $subprocess->deserialize;
$subprocess = $subprocess->deserialize(sub {...});
A callback used to deserialize subprocess return values, defaults to using Storable.
$subprocess->deserialize(sub {
my $bytes = shift;
return [];
});
my $loop = $subprocess->ioloop; $subprocess = $subprocess->ioloop(Mojo::IOLoop->new);
Event loop object to control, defaults to the global Mojo::IOLoop singleton. Note that this attribute is weakened.
my $cb = $subprocess->serialize;
$subprocess = $subprocess->serialize(sub {...});
A callback used to serialize subprocess return values, defaults to using Storable.
$subprocess->serialize(sub {
my $array = shift;
return '';
});
my $pid = $subprocess->pid;
Process id of the spawned subprocess if available.
$subprocess->progress(@data);
Send data serialized with Storable to the parent process at any time during the subprocess's execution. Must be called by the subprocess and emits the ``progress'' event in the parent process with the data.
# Send progress information to the parent process
$subprocess->run(
sub {
my $subprocess = shift;
$subprocess->progress('0%');
sleep 5;
$subprocess->progress('50%');
sleep 5;
return 'Hello Mojo!';
},
sub {
my ($subprocess, $err, @results) = @_;
say 'Progress is 100%';
say $results[0];
}
);
$subprocess->on(progress => sub {
my ($subprocess, @data) = @_;
say "Progress is $data[0]";
});
$subprocess = $subprocess->run(sub {...}, sub {...});
Execute the first callback in a child process and wait for it to return one or more values, without blocking ``ioloop'' in the parent process. Then execute the second callback in the parent process with the results. The return values of the first callback and exceptions thrown by it, will be serialized with Storable, so they can be shared between processes.