[Moscow.pm] Простые однотипные операции с AnyEvent

[Konstantin S. Uvarin]

Приветствую! 

  Время от времени при написании (интеграционных?) тестов чего-то с эниэвентом 
возникает почти одинаковая портянка:

  my $cv = AnyEvent->condvar;
  my $tm = AnyEvent->timer( after => 10, cb => sub { $cv->croak("Timeout"); };
  do_something( sub{ $cv->send(shift); }, sub{ $cv->croak(shift); } );
  my $result = $cv->recv();
  undef $tm; 
  analyze_do_something( $result );
  
Чешутся руки написать вместо этого
  
  my $result = ae_recv {
       do_something( ae_send, ae_croak );
  } 10; # timeout
  analyze_do_something( $result );

Соответственно, вопрос:
1) А есть ли уже такой интерфейс?
2) Нужен ли он кому-то ещё?

--
WBR,
Konstantin S. Uvarin