view release on metacpan or  search on metacpan

t/05run.t  view on Meta::CPAN

            like( $handle->{rbuf}, qr/test(\r)?\n/, "$testname ok" );
            $cv->send;
        },
        on_error => sub {
            my ($handle, $fatal, $msg) = @_;
            fail($msg);
            $cv->send;
        },
    );
    
    # Timeout in case of error
    my $w = AnyEvent->timer( after => 2, cb => sub {
        fail("$testname timed out");
        $cv->send;
    } );
    
    if ( $stdin ) {
        $handle->push_write("test\n");
    }

    $cv->recv;