view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 3;
use AnyEvent;
use AnyEvent::Finger qw( finger_server finger_client );

our $timeout = AnyEvent->timer(
  after => 15,
  cb    => sub { diag "TIMEOUT"; exit },
);

my $port = eval {
  my $bind = AnyEvent->condvar;
  my $server = finger_server sub {
    my $tx = shift;
    my $req = $tx->req;
    $tx->res->([