#!/opt/bin/perl
use AnyEvent;
use AnyEvent::MP;
my $end_cv = AnyEvent->condvar;
my $port = port;
rcv $port, test => sub {
my ($data) = @_;
$end_cv->send ($data);
};
snd $port, test => 123;
print "Ending with: " . $end_cv->recv . "\n";
#!/opt/bin/perl
use AnyEvent;
use AnyEvent::MP;
my $end_cv = AnyEvent->condvar;
my $port = port;
rcv $port, test => sub {
my ($data) = @_;
$end_cv->send ($data);
};
snd $port, test => 123;
print "Ending with: " . $end_cv->recv . "\n";