NAME
    HTTP::Parser2::XS - yet another http parser

SYNOPSIS
        use HTTP::Parser2::XS;

        my $buf = "GET /foo%20bar/ HTTP/1.0\x0d\x0a".
                  "Host: localhost\x0d\x0a".
                  "\x0d\x0a";

        my $r = {}; 

        my $rv = parse_http_request($buf, $r);
        if ($rv == -1) {
            # bad request or internal error
        } elsif ($rv == -2 && length($buf) > 4096) {
            # incomplete request and too long already,
            # no point allowing something like this
        } elsif ($rv == -2) {
            # incomplete request, call again when there is more data
            # in the buffer
        } else {
            # $rv contains the length of the request header on success
        }

        if (exists $r->{'host'} && $r->{'host'}->[0] eq 'localhost') {
            # ...
        }

        if ($r->{'_uri'} eq '/foo bar') {
            # ...
        }

        my $buf = "HTTP/1.0 200 OK\x0d\x0a".
                  "Content-type: text/html\x0d\x0a".
                  "\x0d\x0a".
                  "foo bar";

        my $r = {}; 

        my $rv = parse_http_response($buf, $r);
        if ($rv == -1) {
            # bad reponse or internal error
        } elsif ($rv == -2 && length($buf) > 4096) {
            # incomplete response header and too long already,
            # no point allowing something like this
        } elsif ($rv == -2) {
            # incomplete response, call again when there is more data
            # in the buffer
        } else {
            # $rv contains the length of the response header on success
        }

        if (exists $r->{'content-type'} && 
            $r->{'content-type'}->[0] eq 'text/html') 
        {
            # ...
        }

        if ($r->{'_status'} eq '200') {
            # ...
        }

DESCRIPTION
    HTTP::Parser2::XS parses data into a bit different form making perl code
    more clear and consistent.

EXPORT
        parse_http_request
        parse_http_response

FUNCTIONS
    $rv = parse_http_request($buf, $r)
        Parses HTTP request in $buf into the hashref $r. Returns length of
        the header on success, -1 on error and -2 if request isn't complete
        yet, i.e. doesn't have an entire header. Converts each header name
        to lower-case and stores each value as an arrayref. For example
        "$r->{'host'}->[0]" returns a "Host" header and "@{$r->{'cookie'}}"
        returns all the cookie headers.

        Additionally adds the following elements:

        $r->{'_method'}
            Request method, usually "GET", "HEAD", "POST" or "PUT".

        $r->{'_request_uri'}
            Unchanged undecoded raw request uri.

        $r->{'_uri'}
            Decoded request uri without query string. A lot like $uri in
            nginx.

        $r->{'_query_string'}
            Query string. Everything after question mark.

        $r->{'_protocol'}
            Protocol and version. Either "HTTP/1.0" or "HTTP/1.1".

        $r->{'_keepalive'}
            Either 1 or 0. Examines connection header and protocol version
            to decide whether or not keep-alive connection is desired. And
            if it is sets "$r->{'_keepalive'}" to 1.

        $r->{'_content_length'}
            Parses content-length header. Stores length as a numeric value
            (SvNV to be precise) or undef if there is no content-length
            header.

    $rv = parse_http_response($buf, $r)
        Parses HTTP response in $buf into the hashref $r. Returns length of
        the header on success, -1 on error and -2 if response isn't complete
        yet, i.e. doesn't have an entire header. Converts each header name
        to lower-case and stores each value as an arrayref.

        Additionally adds the following elements:

        $r->{'_protocol'}
            Protocol and version. Either "HTTP/1.0" or "HTTP/1.1".

        $r->{'_status'}
            Response status. For example "200" for "HTTP/1.0 200 OK"
            response.

        $r->{'_message'}
            Status message. For example "OK" for "HTTP/1.0 200 OK" response.

        $r->{'_keepalive'}
            Either 1 or 0. Examines connection header and protocol version
            to decide whether or not keep-alive connection is desired. And
            if it is sets "$r->{'_keepalive'}" to 1.

        $r->{'_content_length'}
            Parses content-length header. Stores length as a numeric value
            (SvNV to be precise) or undef if there is no content-length
            header.

SEE ALSO
    HTTP::Parser::XS

AUTHOR
    Alexandr Gomoliako <zzz@zzz.org.ua>

LICENSE
    This module uses Kazuho Oku's code from HTTP::Parser::XS.

    Copyright 2011 Alexandr Gomoliako, Kazuho Oku. All rights reserved.

    This module is free software. It may be used, redistributed and/or
    modified under the same terms as Perl itself.