view release on metacpan or  search on metacpan

eg/async  view on Meta::CPAN

use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
use AnyEvent::CouchDB;
use Data::Dump 'pp';
my $couch = couch();
my $bad   = couch('http://bad/');
my $done  = AnyEvent->condvar;

sub p(&) {
  $done->begin;
  my $code = shift;
  my $data;
  eval { $data = $code->(); };
  if ($@) {
    print $@, "\n";
  } else {
    print pp($data), "\n";
  }
  $done->end;