Rand Stats

Net::HTTP

github:ugexe

Net::HTTP

Interfaces and default implementations for rolling your own http client and/or components

Synopsis

use Net::HTTP::GET;
my %header   = :Connection<keep-alive>;
my $response = Net::HTTP::GET("http://httpbin.org/ip", :%header);
say $response.content;


use Net::HTTP::POST;
my $body     = Buf.new("a=b&c=d&f=".ords);
my $response = Net::HTTP::POST("http://httpbin.org/post", :$body);
say $response.content;

How do I...?

Use a proxy

Simply add a proxy method to your client or transport object. For instance, to simply return a url from a string you could do:

my $transport = Net::HTTP::Transport.new;
$transport does role { 
    method proxy { ::('Net::HTTP::URL').new("http://proxy-lord.org") }
}

But you could also implement rotating proxies, proxy from $*ENV, etc

Client Implementations

Net::HTTP::GET

my $response = Net::HTTP::GET("http://httpbin.org/ip");

Simple access to the http GET client api.

Net::HTTP::POST

my $body = Buf.new("a=1&b=2".ords);
my $response = Net::HTTP::POST("http://httpbin.org/post", :$body);

Simple access to the http POST client api (Still lacking anything beyond basic functionality)

Net::HTTP::Transport

    my $url = Net::HTTP::URL.new($abs-url);
    my $req = Net::HTTP::Request.new(:$url, :method<GET>, :User-Agent<raku-net-http>);
    my $transport = Net::HTTP::Transport.new;
    my $response  = $transport.round-trip($req);

A high level round-robin implementation that attempts connection caching and is thread safe. For a user-agent level implementation that handles cookies, redirects, auth, etc then use a Net::HTTP::Client. Can provide an alternative Response object as an argument.

> use HTTP::SomethingElse::Response;
> my \ALTRESPONSE = HTTP::SomethingElse::Response;
> my $response    = $transport.round-trip($req, ALTRESPONSE);

Net::HTTP::Client

# NYI

Highest level of http client implementation.

Interface Default Implementations

Most Net::HTTP components can be swapped out for generic alternatives. Net::HTTP provides a set of interfaces (see: Net::HTTP::Interfaces and the other included classes in Net::HTTP can be viewed as default implementations.

Net::HTTP::URL

my $url = Net::HTTP::URL.new("http://google.com/");

Create a url object to provide an api to the url parts, such as scheme, host, and port.

> say ~$url
http://google.com/
> say $url.host;
google.com

Net::HTTP::Request

my $url     = Net::HTTP::URL.new("http://google.com/");
my $request = Net::HTTP::Request.new(:$url, :method<GET>, header => :Host<google.com>);

Create a Request object which provides an api to generating an over-the-wire or human readable representation of an http request. .raw gives a binary representation, and .Str gives a utf8 encoded version.

> my $socket = IO::Socket::INET.new(:host<google.com>, :port(80));
> $socket.write($request.raw)

Net::HTTP::Response

my $response-from-args = Net::HTTP::Response.new(:$status-line, :%header, :$body);
my $response-from-buf  = Net::HTTP::Response.new($response-as-buf);

Creates a Response object that provides an api to parsing an http response. It can be created with named arguments representing the http message parts, or it can be given a raw Blob.

> my $data = buf8.new andthen while $socket.recv(:bin) -> d { $data ~= $d }
> my $response = Net::HTTP::Response.new($data)

Net::HTTP::Dialer

my $url     = Net::HTTP::URL.new("http://google.com/");
my $request = Net::HTTP::Request.new(:$url, :method<GET>, header => :Host<google.com>);
my $socket  = Net::HTTP::Dialer.new.dial($request);

A role for providing access to scheme appropriate socket connections.