|
NAMEProtocol::HTTP2::Client - HTTP/2 clientSYNOPSISuse Protocol::HTTP2::Client; # Create client object my $client = Protocol::HTTP2::Client->new; # Prepare first request $client->request( # HTTP/2 headers ':scheme' => 'http', ':authority' => 'localhost:8000', ':path' => '/', ':method' => 'GET', # HTTP/1.1 headers headers => [ 'accept' => '*/*', 'user-agent' => 'perl-Protocol-HTTP2/0.13', ], # Callback when receive server's response on_done => sub { my ( $headers, $data ) = @_; ... }, ); # Protocol::HTTP2 is just HTTP/2 protocol decoder/encoder # so you must create connection yourself use AnyEvent; use AnyEvent::Socket; use AnyEvent::Handle; my $w = AnyEvent->condvar; # Plain-text HTTP/2 connection tcp_connect 'localhost', 8000, sub { my ($fh) = @_ or die "connection failed: $!\n"; my $handle; $handle = AnyEvent::Handle->new( fh => $fh, autocork => 1, on_error => sub { $_[0]->destroy; print "connection error\n"; $w->send; }, on_eof => sub { $handle->destroy; $w->send; } ); # First write preface to peer while ( my $frame = $client->next_frame ) { $handle->push_write($frame); } # Receive servers frames # Reply to server $handle->on_read( sub { my $handle = shift; $client->feed( $handle->{rbuf} ); $handle->{rbuf} = undef; while ( my $frame = $client->next_frame ) { $handle->push_write($frame); } # Terminate connection if all done $handle->push_shutdown if $client->shutdown; } ); }; $w->recv; DESCRIPTIONProtocol::HTTP2::Client is HTTP/2 client library. It's intended to make http2-client implementations on top of your favorite event-loop.METHODSnewInitialize new client object my $client = Procotol::HTTP2::Client->new( %options ); Available options:
request Prepare HTTP/2 request. $client->request( # HTTP/2 headers ':scheme' => 'http', ':authority' => 'localhost:8000', ':path' => '/items', ':method' => 'POST', # HTTP/1.1 headers headers => [ 'content-type' => 'application/x-www-form-urlencoded', 'user-agent' => 'perl-Protocol-HTTP2/0.06', ], # Callback when receive server's response on_done => sub { my ( $headers, $data ) = @_; ... }, # Callback when receive stream reset on_error => sub { my $error_code = shift; }, # Body of POST request data => "hello=world&test=done", ); You can chaining request one by one: $client->request( 1-st request )->request( 2-nd request ); Available callbacks:
keepalive Keep connection alive after requests my $bool = $client->keepalive; $client = $client->keepalive($bool); shutdown Get connection status:
close Explicitly close connection (send GOAWAY frame). This is required if client has keepalive option enabled. next_frame get next frame to send over connection to server. Returns:
# Example while ( my $frame = $client->next_frame ) { syswrite $fh, $frame; } feed Feed decoder with chunks of server's response sysread $fh, $binary_data, 4096; $client->feed($binary_data); ping Send ping frame to server (to keep connection alive) $client->ping or $client->ping($payload); Payload can be arbitrary binary string and must contain 8 octets. If payload argument is omitted client will send random data.
Visit the GSP FreeBSD Man Page Interface. |