gistfile1.pl

  sub cleanup {
    my $cv = AE::cv;

    for my $irc ($self->ircs) {
      $cv->begin;
      $irc->reg_cb(disconnect => sub { $cv->end });
      $irc->disconnect;
    }

    for my $plugin ($self->plugins) {
      $cv->begin;
      $plugin->shutdown(sub { $cv->end });
    }

    my $t = AE::timer 5, 0, sub {
      $cv->croak("timeout shutting down plugins");
    };

    $cv->recv;
  }