| … | |
… | |
| 55 | |
55 | |
| 56 | my $rpc = AnyEvent::Fork |
56 | my $rpc = AnyEvent::Fork |
| 57 | ->new |
57 | ->new |
| 58 | ->require ("MyWorker") |
58 | ->require ("MyWorker") |
| 59 | ->AnyEvent::Fork::RPC::run ("MyWorker::run", |
59 | ->AnyEvent::Fork::RPC::run ("MyWorker::run", |
|
|
60 | on_error => sub { warn "FATAL: $_[0]"; exit 1 }, |
| 60 | on_event => sub { warn "$_[0] requests handled\n" }, |
61 | on_event => sub { warn "$_[0] requests handled\n" }, |
| 61 | on_destroy => $done, |
62 | on_destroy => $done, |
| 62 | ); |
63 | ); |
| 63 | |
64 | |
| 64 | for my $id (1..6) { |
65 | for my $id (1..6) { |
