view release on metacpan or  search on metacpan

t/04_flush.t  view on Meta::CPAN

$| = 1;
print "1..10\n";

use AnyEvent::Fork;
use AnyEvent::Fork::RPC;

sub ok($;$) {
   print $_[0] ? "" : "not ", "ok ", ++$::ok, " # $_[1]\n";
}

ok 1;

my $code = do { local $/; <DATA> };

for my $async (0, 1) {
   my ($cv, $ev);