NAME
    HTTP::MessageParser - Parse HTTP Messages

SYNOPSIS
        use HTTP::MessageParser;

        my ( $message, @request );

        while ( my $line = $client->getline ) {
            next if !$message && $line eq "\x0D\x0A"; # RFC 2616 4.1
            $message .= $line;
            last if $message =~ /\x0D\x0A\x0D\x0A$/;
        }

        eval {
            @request = HTTP::MessageParser->parse_request($message);
        };

        if ( $@ ) {
            # 400 Bad Request
        }

        # ...

DESCRIPTION
    Parse HTTP/1.0 and HTTP/1.1 Messages.

METHODS
    parse_headers( $string )
            my @headers = HTTP::MessageParser->parse_headers($string);
            my $headers = HTTP::MessageParser->parse_headers($string);

        Parses "Message Headers". "field-name"'s are lowercased. Leading and
        trailing "LWS" is removed. "LWS" occurring between "field-content"
        are replaced with a single "SP". Takes one argument, a string or a
        reference to a string, if it's a reference it will be consumed.

    parse_request( $string )
            my ( $Method, $Request_URI, $HTTP_Version, $Headers, $Body )
              = HTTP::MessageParser->parse_request($string);

        Parses a Request. Expects a "Request-Line" followed by zero more
        header fields and an empty line. Content occurring after end of
        header fields is returned as a string reference, $Body. Takes one
        argument, a string or a reference to a string, if it's a reference
        it will be consumed.

        Throws an exception upon failure.

    parse_request_line( $string )
            my ( $Method, $Request_URI, $HTTP_Version )
              = HTTP::MessageParser->parse_request_line($string);

        Parses a "Request-Line". Any leading "CRLF" is ignored. Takes one
        argument, a string or a reference to a string, if it's a reference
        it will be consumed.

        Throws an exception upon failure.

    parse_response( $string )
            my ( $HTTP_Version, $Status_Code, $Reason_Phrase, $Headers, $Body )
              = HTTP::MessageParser->parse_response($string);

        Parses a Response. Expects a "Status-Line" followed by zero more
        header fields and an empty line. Content occurring after end of
        header fields is returned as a string reference, $Body. Takes one
        argument, a string or a reference to a string, if it's a reference
        it will be consumed.

        Throws an exception upon failure.

    parse_response_line( $string )
            my ( $HTTP_Version, $Status_Code, $Reason_Phrase )
              = HTTP::MessageParser->parse_response_line($string);

        Parses a "Status-Line". Takes one argument, a string or a reference
        to a string, if it's a reference it will be consumed.

        Throws an exception upon failure.

    parse_version( $string )
            my ( $major, $minor ) = HTTP::MessageParser->parse_version($string);
            my $version = HTTP::MessageParser->parse_version($string);

        Parses a "HTTP-Version" string. In scalar context it returns a
        version number ( "major * 1000 + minor" ). In list context it
        returns "major" and "minor" as two separate integers.

        Throws an exception upon failure.

EXPORTS
    Nothing by default. Following subroutines can be exported:

    parse_headers
    parse_request
    parse_request_line
    parse_response
    parse_response_line
    parse_version

SEE ALSO
    <http://www.w3.org/Protocols/rfc2616/rfc2616.html>

    HTTP::Request

    HTTP::Response

    HTTP::Message

    HTTP::Parser

AUTHOR
    Christian Hansen "chansen@cpan.org"

COPYRIGHT
    This program is free software, you can redistribute it and/or modify it
    under the same terms as Perl itself.