| 1 | =head1 NAME |
1 | =head1 NAME |
| 2 | |
2 | |
| 3 | AnyEvent::Fork::RPC - simple RPC extension for AnyEvent::Fork |
3 | AnyEvent::Fork::RPC - simple RPC extension for AnyEvent::Fork |
|
|
4 | |
|
|
5 | THE API IS NOT FINISHED, CONSIDER THIS A TECHNOLOGY DEMO |
| 4 | |
6 | |
| 5 | =head1 SYNOPSIS |
7 | =head1 SYNOPSIS |
| 6 | |
8 | |
| 7 | use AnyEvent::Fork::RPC; |
9 | use AnyEvent::Fork::RPC; |
| 8 | # use AnyEvent::Fork is not needed |
10 | # use AnyEvent::Fork is not needed |
| … | |
… | |
| 561 | $ww ||= AE::io $fh, 1, $wcb; |
563 | $ww ||= AE::io $fh, 1, $wcb; |
| 562 | }); |
564 | }); |
| 563 | |
565 | |
| 564 | my $guard = Guard::guard { |
566 | my $guard = Guard::guard { |
| 565 | $shutdown = 1; |
567 | $shutdown = 1; |
| 566 | $ww ||= $fh && AE::io $fh, 1, $wcb; |
568 | |
|
|
569 | shutdown $fh, 1 if $fh && !$ww; |
| 567 | }; |
570 | }; |
| 568 | |
571 | |
| 569 | my $id; |
572 | my $id; |
| 570 | |
573 | |
| 571 | $arg{async} |
574 | $arg{async} |
