File Coverage

blib/lib/WARC/Record/Replay/HTTP.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package WARC::Record::Replay::HTTP;				# -*- CPerl -*-

use strict;
use warnings;

use WARC; *WARC::Record::Replay::HTTP::VERSION = \$WARC::VERSION;

=for autoload
[WARC::Record::Replay]
field(Content-Type)=^application/http

=cut

our $Content_Deferred_Loading_Threshold;
our $Content_Maximum_Length;

# set defaults only if not already set
$Content_Deferred_Loading_Threshold = 2 * (1<<20)	#   2 MiB
  unless defined $Content_Deferred_Loading_Threshold;
$Content_Maximum_Length = 128 * (1<<20)			# 128 MiB
  unless defined $Content_Maximum_Length;

# From RFC2616:

#	CHAR		=
#	CTL		=
#			   (octets 0 - 31) and DEL (127)>
#	LWS		= [CRLF] 1*( SP | HT )
#	separators	= "(" | ")" | "<" | ">" | "@"
#			| "," | ";" | ":" | "\" | <">
#			| "/" | "[" | "]" | "?" | "="
#			| "{" | "}" | SP | HT
#	token		= 1*

our $HTTP__LWS =		qr/(?:\015\012)?[ \t]+/;
our $HTTP__separator =		qr[[][)(><}{@,;:/"\\?=[:space:]]];
our $HTTP__not_separator =	qr[[^][)(><}{@,;:/"\\?=[:space:]]];
our $HTTP__token =		qr/[!#$%'*+-.0-9A-Z^_`a-z|~]+/;
our $HTTP__Version =		qr[HTTP/\d+.\d+];

#	Request-Line	= Method SP Request-URI SP HTTP-Version CRLF
#	Status-Line	= HTTP-Version SP Status-Code SP Reason-Phrase CRLF

our $HTTP__Request_Line = qr[^($HTTP__token)\s+([^ ]+)\s+($HTTP__Version)$];
our $HTTP__Status_Line  = qr[^($HTTP__Version)\s+(\d{3})\s+(.*)$];

use constant HTTP_PARSE_REs =>
  qw/ HTTP__LWS HTTP__separator HTTP__not_separator HTTP__token HTTP__Version
      HTTP__Request_Line HTTP__Status_Line /;

require WARC::Record::Replay::HTTP::Message;
require WARC::Record::Replay::HTTP::Request;
require WARC::Record::Replay::HTTP::Response;

1;
__END__