/ 
AnyEvent-Worker-0.06
River stage zero No dependents
/ ex/worker.pl

$cv->begin; $worker3->do( "P:Data" , sub { guard { $cv->end; }; return warn "Request died: $@\n" if $@; warn "Received response: @_\n"; });

$cv->begin; $SIG{INT} = sub { $cv->end };