view release on metacpan or  search on metacpan

lib/CGI/Buffer.pm  view on Meta::CPAN

# Entry criteria: $headers is the block of headers
# Exit status: none
# Side effects: sets @content_type, and $script_encoded if there's an encoding
sub _set_content_type
{
	my $headers = shift;

	foreach my $header (split(/\r?\n/, $headers)) {
		my ($header_name, $header_value) = split /\:\s*/, $header, 2;
		next unless(defined($header_name) && defined($header_value));
		if(lc($header_name) eq 'content-type') {
			@content_type = split /\//, $header_value, 2;
		} elsif((lc($header_name) eq 'content-encoding') && (lc($header_value) !~ /^\s*identity\s*$/)) {
			$script_encoded = 1;
		}
	}
}

# Purpose: compress the body
# Entry criteria: $encoding is from _choose_encoding(), or '' for none
# Exit status: none