view release on metacpan or  search on metacpan

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

	return '';
}

sub _set_content_type
{
	my $headers = shift;

	foreach my $header (split(/\r?\n/, $headers)) {
		my ($header_name, $header_value) = split /\:\s*/, $header, 2;
		if (lc($header_name) eq 'content-type') {
			@content_type = split /\//, $header_value, 2;
			last;
		}
	}
}

sub _compress {
	my %params = ref $_[0] eq 'HASH' ? %{ $_[0] } : @_;
	return unless defined $body;