view release on metacpan or  search on metacpan

t/live_http11_request_pipelined.t  view on Meta::CPAN

    # Read all responses into one big buffer
    my $pipebuf;
    my $sel = IO::Select->new($sock);
    while ( $sel->can_read(1) ) {
        my $n = sysread $sock, my $buf2, 64 * 1024;
        last unless $n;
        $pipebuf .= $buf2;
    }
    
    my $count = 2;
    for my $resp ( split m{HTTP/1.1 200 OK}, $pipebuf ) {
        next unless $resp;
        
        $resp = 'HTTP/1.1 200 OK' . $resp;
        
        my $response = HTTP::Response->parse($resp);
        
        my $creq;
        ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
        is( $creq->{parameters}->{req}, $count, "request $count ok" );