—

              
package AnyEvent::ProcessPool::Worker;
# ABSTRACT: The task executor code run in the worker process
$AnyEvent::ProcessPool::Worker::VERSION = '0.07';
use v5.10;
use common::sense;
use AnyEvent::ProcessPool::Task;
sub run {
  local $| = 1;
  while (defined(my $line = <STDIN>)) {
    my $task = AnyEvent::ProcessPool::Task->decode($line);
    $task->execute;
    say $task->encode;
  }
}
1;
__END__
HideShow 25 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
AnyEvent::ProcessPool::Worker - The task executor code run in the worker process
=head1 VERSION
version 0.07
=head1 AUTHOR
Jeff Ober <sysread@fastmail.fm>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Jeff Ober.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut