Uniform::HTTP

CPAN version CPANTS Kwalitee CI License Perl

Uniform::HTTP provides small, framework-neutral HTTP objects for Perl.

It gives different HTTP libraries a common way to represent:

It does not open sockets, run an event loop, parse HTTP from the network, or send requests. Those jobs stay with the HTTP client, server, or framework using it.

This makes it possible for unrelated HTTP implementations to exchange the same kind of request and response objects without depending on each other's object model.

Installation

From CPAN:

cpanm Uniform::HTTP

Uniform::HTTP requires Perl 5.16 or newer.

Start here

Most application code will use Uniform::HTTP::Request and Uniform::HTTP::Response.

Create a request:

use feature 'say';
use Uniform::HTTP::Request;

my $request = Uniform::HTTP::Request->new(
    method    => 'GET',
    target    => '/users?id=42',
    scheme    => 'https',
    authority => 'example.com',
    headers   => [
        [ 'Accept', 'application/json' ],
    ],
);

say $request->method;               # GET
say $request->target;               # /users?id=42
say $request->header('Accept');     # application/json

Create a response:

use feature 'say';
use Uniform::HTTP::Response;

my $response = Uniform::HTTP::Response->new(
    status  => 200,
    headers => [
        [ 'Content-Type', 'text/plain' ],
    ],
    body => "hello\n",
);

say $response->status;              # 200
say $response->body;                # hello

These are plain detached HTTP message objects. Creating one does not perform network I/O.

Headers

Headers are stored as an ordered list instead of a hash.

That matters because HTTP can contain repeated fields:

my $response = Uniform::HTTP::Response->new(
    status => 200,
    headers => [
        [ 'Set-Cookie', 'a=1' ],
        [ 'Set-Cookie', 'b=2' ],
    ],
);

my $first = $response->header('Set-Cookie');

my $all = $response->header_values('Set-Cookie');
# [ 'a=1', 'b=2' ]

Uniform::HTTP preserves:

Header lookup is case-insensitive.

Trailers

Trailers are fields supplied after the body. They stay separate from headers and preserve the same duplicates, order, spelling, and bytes:

my $response = Uniform::HTTP::Response->new(
    status   => 200,
    body     => $bytes,
    trailers => [ [ 'Content-Digest', $digest_field_value ] ],
);

my $digest = $response->trailer('Content-Digest');
my $all = $response->trailer_values('Content-Digest');
$response->add_trailer('X-Metric', '42');

trailer_count, trailer_name($index), and trailer_value($index) enumerate fields. remove_trailer($name) removes all matches. has_trailers() reports whether any trailer fields are currently present. The sender decides which fields are legal trailers and how to send them.

Bodies

body() represents a body that is already buffered in memory.

my $body = $response->body;

Uniform::HTTP never reads a socket, filehandle, callback, or streaming body source just because body() was called.

Use:

$response->has_buffered_body;

to tell whether a complete buffered body is available.

Streaming belongs to the HTTP implementation around the Uniform object.

Changing a message

Canonical Uniform objects are mutable by default:

$request->header('Accept', 'text/html');
$response->status(404);

They can be frozen when no more message values should change:

$response->freeze;

After freeze(), setters throw an exception.

For incremental receipt, fix the initial data while leaving room for trailers:

my $response = Uniform::HTTP::Response->new(status => 200)
    ->mark_incomplete->freeze_initial;

# The HTTP implementation receives the body outside Uniform.
$response->add_trailer('Content-Digest', $digest_field_value);
$response->mark_complete->freeze;

freeze_initial() locks headers, version, and request/response metadata. freeze_trailers() can lock just the trailers. freeze() locks all data. None of these methods sends anything.

is_mutable() means some part can change. Use initial_is_mutable(), body_is_mutable(), or trailers_are_mutable() to check a particular part. is_complete() separately reports whether the whole message has arrived, including trailers. Marking complete does not freeze an object.

HTTP/1, HTTP/2, and HTTP/3

The same message classes work across all three versions. Leave version unset for an application-created message; the HTTP implementation can choose its sending version without changing your object. Received messages can report their actual version.

Ordinary CONNECT uses an authority-form target:

my $connect = Uniform::HTTP::Request->new(
    method    => 'CONNECT',
    target    => 'example.com:443',
    authority => 'example.com:443',
);

Extended CONNECT adds a protocol name and uses a path target:

my $connect = Uniform::HTTP::Request->new(
    method    => 'CONNECT',
    protocol  => 'websocket',
    scheme    => 'https',
    authority => 'example.com',
    target    => '/chat',
);

protocol also accepts connect-udp and future protocol-name tokens. It is never inferred from an Upgrade header. Scheme and authority are never guessed either. The HTTP implementation handles negotiation, validation, and tunnels.

Informational responses are normal response objects, such as Uniform::HTTP::Response->new(status => 103). The HTTP implementation keeps track of their order and the eventual final response.

Authentication

Uniform::HTTP::Auth prepares Basic, Bearer, and Digest authentication values.

A normal username/password example:

use Uniform::HTTP::Auth;

my $auth = Uniform::HTTP::Auth->new(
    origin => 'https://example.com:443',
    credentials => {
        username => 'user',
        password => 'secret',
    },
);

my $result = $auth->prepare_authentication(
    challenge_headers => [
        'Digest realm="Members", nonce="abc", qop="auth", algorithm=SHA-256',
    ],
    method         => 'GET',
    request_target => '/private',
);

my $value = $result->{value};

$value is the complete authentication field value. The surrounding HTTP implementation decides whether to put it in Authorization or Proxy-Authorization, and whether to retry the request.

Authentication performs no network I/O.

Supported schemes are:

Most applications should use Uniform::HTTP::Auth directly. The Basic, Bearer, and Digest submodules are also available for code that only wants the lower-level calculations.

Native fast path

Native-backed HTTP engines can optionally use Uniform::HTTP::FastPath to read a canonical message in one operation or build one from data they have already validated.

Normal application code does not need it. Adapters and subclasses continue to use the portable message API.

See Uniform::HTTP::FastPath for the ABI and ownership rules.

What Uniform::HTTP does not do

Uniform::HTTP deliberately does not own:

This is what keeps the objects usable across different HTTP implementations.

Modules

The distribution contains:

Adapters

A framework can expose its native request or response through the Uniform HTTP contract without subclassing the canonical classes.

Adapters should be separate distributions. Uniform::HTTP itself does not depend on Mojolicious, PSGI, PAGI, Linux::Event, or another HTTP stack.

Adapters report their limitations. For example, a framework that hides trailers returns undef for trailer_count() and trailer_values(), instead of claiming the section is empty. Header and trailer fidelity are reported separately. Adapters need not implement the canonical freeze helpers.

Most users do not need to know the adapter rules. They are documented for HTTP library authors in:

Migration from Uniform-HTTP-Auth

Uniform::HTTP::Auth was originally released in the Uniform-HTTP-Auth distribution.

Beginning with Uniform-HTTP 0.02, the same module is part of Uniform-HTTP. Existing code using:

use Uniform::HTTP::Auth;

does not need to change.

License

MIT License.