view release on metacpan or search on metacpan
lib/Haineko/SMTPD/Relay/AmazonSES.pm view on Meta::CPAN
'timeout' => $self->{'timeout'},
'ssl_opts' => { 'SSL_verify_mode' => 0 },
'headers' => [
'date' => $datestring,
'host' => SES_ENDPOINT,
'content-type' => 'application/x-www-form-urlencoded',
'if-ssl-cert-subject' => sprintf( "/CN=%s", SES_ENDPOINT ),
'x-amzn-authorization' => sprintf( "AWS3-HTTPS %s", $authheader ),
],
};
my $httpclient = Furl->new( %$methodargv );
view release on metacpan or search on metacpan
t/jekyll_test_source/_layouts/default.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en-us">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>{{ page.title }}</title>
<meta name="author" content="<%= @page.author %>" />
<!-- CodeRay syntax highlighting CSS -->
<link rel="stylesheet" href="/css/coderay.css" type="text/css" />
view release on metacpan or search on metacpan
share/root/wrapper.tt view on Meta::CPAN
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>hopkins HMI[% IF page.title %] - [% page.title %][% END %]</title>
<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
<meta name="description" content="hopkins HMI" />
<meta name="robots" content="index, follow, noarchive" />
<meta name="googlebot" content="noarchive" />
[% IF 0 && page.refresh %]
<meta http-equiv="refresh" content="[% page.refresh %];url=[% c.req.uri %]" />
view release on metacpan or search on metacpan
lib/Horris/Connection/Plugin/PeekURL.pm view on Meta::CPAN
channel => $msg->channel,
message => "Request failed: $headers->{Reason} ($headers->{Status})",
});
return;
}
@ct = split(/\s*,\s*/, $headers->{'content-type'});
if (grep { /^image\/.+$/i } @ct) {
$ct = 1;
} elsif ( grep { !/^text\/.+$/i } @ct) {
# otherwise it's something we don't know about.
# don't spend the time and memory to load this guy
view release on metacpan or search on metacpan
0.1.9 Mon Jul 21 13:42:23 2014 KST
- update dzil profile
- added jira web hook event listner
- updated readme
- added <3 script
- using content-type application/json
0.1.8 Fri Feb 14 01:46:35 2014 KST
- [bugzilla] speak quicksearch url
- [githubissue] added
- perltidy all scripts
view release on metacpan or search on metacpan
lib/Hubot/Scripts/shorten.pm view on Meta::CPAN
)->get(
sub {
my ( $body, $hdr ) = @_;
return if ( !$body || !$hdr->{Status} =~ /^2/ );
## content-type
my @ct = split( /\s*,\s*/, $hdr->{'content-type'} );
if ( grep {/^image\/.+$/i} @ct || grep { !/text/i } @ct ) {
return $msg->send("[$ct[0]] - $bitly");
}
### charset
view release on metacpan or search on metacpan
lib/Hyper/Developer/Server.pm view on Meta::CPAN
eval {
my $svg = Hyper::Developer::Model::Viewer->new({
for_class => $class,
})->create_graph()->as_svg();
print <<"EOT";
content-type:image/svg+xml
<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg xmlns="http://www.w3.org/2000/svg"
xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:ev="http://www.w3.org/2001/xml-events"
lib/Hyper/Developer/Server.pm view on Meta::CPAN
my $namespace = $config->get_namespace();
my $base_path = $config->get_base_path();
eval {
# Child
print "content-type:text/html; charset=utf-8\n\n";
my @flow_controls;
my @container_controls;
find(
sub {
m{.ini\Z} or return;
view release on metacpan or search on metacpan
include/hyperman/hm_http2.h view on Meta::CPAN
}
return;
}
if (nl == 14 && hm_strncasecmp(nm, "content-length", 14) == 0) { /* # uncoverable condition right count:2 class:ignore_covered_err */
hv_stores(env, "CONTENT_LENGTH", newSVpvn(vl, vlen));
} else if (nl == 12 && hm_strncasecmp(nm, "content-type", 12) == 0) { /* # uncoverable condition right count:2 class:ignore_covered_err */
hv_stores(env, "CONTENT_TYPE", newSVpvn(vl, vlen));
/*
# uncoverable condition right count:2 class:ignore_covered_err
# uncoverable condition right count:3 class:ignore_covered_err */
} else if (nl == 4 && hm_strncasecmp(nm, "host", 4) == 0
include/hyperman/hm_http2.h view on Meta::CPAN
}
static void hm_h2_submit_status(pTHX_ hm_h2_sess *s, hm_h2_stream *st,
int status, const char *ctype) {
AV *hav = newAV();
av_push(hav, newSVpvs("content-type"));
av_push(hav, newSVpv(ctype, 0));
hm_h2_submit_response(aTHX_ s, st, status, hav);
SvREFCNT_dec((SV *)hav);
}
view release on metacpan or search on metacpan
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line(' snprintf(status_buf, sizeof(status_buf), "%d", status);')
->line(' ')
->line(' /* Submit HTTP/2 response headers */')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)status_buf, 7, strlen(status_buf), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)ct, 12, strlen(ct), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-length", (uint8_t*)cl_buf, 14, strlen(cl_buf), NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' /* Create data provider for body */')
->line(' nghttp2_data_provider data_prd;')
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line('static void h2_send_404(nghttp2_session* session, int32_t stream_id) {')
->line(' static const char* body = "Not Found";')
->line(' ')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)"404", 7, 3, NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)"text/plain", 12, 10, NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-length", (uint8_t*)"9", 14, 1, NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' nghttp2_data_provider data_prd;')
->line(' data_prd.source.ptr = (void*)body;')
lib/Hypersonic/Protocol/HTTP2.pm view on Meta::CPAN
->line(' char status_str[4];')
->line(' snprintf(status_str, sizeof(status_str), "%d", status);')
->line(' ')
->line(' nghttp2_nv hdrs[] = {')
->line(' { (uint8_t*)":status", (uint8_t*)status_str, 7, strlen(status_str), NGHTTP2_NV_FLAG_NONE },')
->line(' { (uint8_t*)"content-type", (uint8_t*)content_type, 12, strlen(content_type), NGHTTP2_NV_FLAG_NONE },')
->line(' };')
->line(' ')
->line(' /* Submit headers WITHOUT END_STREAM - more DATA frames to come */')
->line(' int rv = nghttp2_submit_headers(session, NGHTTP2_FLAG_END_HEADERS,')
->line(' stream_id, NULL, hdrs, 2, NULL);')
view release on metacpan or search on metacpan
lib/Hypothesis/API.pm view on Meta::CPAN
}
my $data = $json->encode($payload_out);
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations" );
lib/Hypothesis/API.pm view on Meta::CPAN
warn "No id given to delete.\n";
return 0;
}
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations/$id" );
lib/Hypothesis/API.pm view on Meta::CPAN
return -1;
}
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
$self->ua->default_headers( $h );
my $payload = {
username => $self->username,
lib/Hypothesis/API.pm view on Meta::CPAN
sub search {
my ($self, $query, $page_size) = @_;
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
if (not defined $query) {
$query = {};
}
lib/Hypothesis/API.pm view on Meta::CPAN
#
my ($self, $query, $page_size) = @_;
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
);
if (not defined $query) {
$query = {};
}
lib/Hypothesis/API.pm view on Meta::CPAN
die "Can only call update if given an id.";
}
my $data = $json->encode($payload);
my $h = HTTP::Headers->new;
$h->header(
'content-type' => 'application/json;charset=UTF-8',
'x-csrf-token' => $self->csrf_token,
'X-Annotator-Auth-Token' => $self->token,
);
$self->ua->default_headers( $h );
my $url = URI->new( "${\$self->api_url}/annotations/$id" );
view release on metacpan or search on metacpan
lib/IDS/DataSource/HTTP.pm view on Meta::CPAN
# 14.12 Content-Language; simple and already handled by key+value
'content-length' => 'IDS::DataSource::HTTP::Int', # 14.13
# 14.14 Content-Location likely to be server->client
'content-md5' => 'IDS::DataSource::HTTP::MD5', # 14.15
# 14.16 Content-Range is server->client
'content-type' => 'IDS::DataSource::HTTP::Accept', # 14.17
'date' => 'IDS::DataSource::HTTP::Date', # 14.18
'etag' => 'IDS::DataSource::HTTP::ETag', # 14.19
'expect' => 'IDS::DataSource::HTTP::Expectation', # 14.20
'expires' => 'IDS::DataSource::HTTP::Date', # 14.21
'from' => 'IDS::DataSource::HTTP::EmailAddr', # 14.22
view release on metacpan or search on metacpan
t/09annotations.t view on Meta::CPAN
use IMAP::Client;
my $client = IMAP::Client->new;
my @getannotation_response = ('* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/lastupdate" ("value.shared" "19-Sep-2006 12:51:07 -0400" "content-type.shared" "text/plain" "size.shared" "26")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/size" ("value.shared" "4424" "content-type.shared" "text/plain" "size.shared" "4")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/partition" ("value.shared" "default" "content-type.shared" "text/plain" "size.shared" "7")'."\r\n",
'* ANNOTATION "user.emailj" "/vendor/cmu/cyrus-imapd/server" ("value.shared" "imapbackend.server1.com" "content-type.shared" "text/plain" "size.shared" "23")'."\r\n",
'. OK Completed'."\r\n",);
my %resp = IMAP::Client::parse_annotation(\@getannotation_response ,'user.emailj',$client);
is (scalar (keys %resp), 1);
view release on metacpan or search on metacpan
lib/IO/HTML.pm view on Meta::CPAN
} # Skip comment
elsif (m!\G<meta(?=[\x09\x0A\x0C\x0D /])!gic) {
my ($got_pragma, $need_pragma, $charset);
while (my ($name, $value) = &_get_attribute) {
if ($name eq 'http-equiv' and $value eq 'content-type') {
$got_pragma = 1;
} elsif ($name eq 'content' and not defined $charset) {
$need_pragma = $expect_pragma
if defined($charset = _get_charset_from_meta($value));
} elsif ($name eq 'charset') {
view release on metacpan or search on metacpan
lib/IO/HyCon.html view on Meta::CPAN
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:support@citrusperl.org" />
</head>
<body>
view release on metacpan or search on metacpan
lib/IO/K8s/Traefik/V1alpha1/ContentType.pm view on Meta::CPAN
package IO::K8s::Traefik::V1alpha1::ContentType;
# ABSTRACT: ContentType holds the content-type middleware configuration.
our $VERSION = '1.112';
use IO::K8s::Resource;
k8s autoDetect => Bool;
lib/IO/K8s/Traefik/V1alpha1/ContentType.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
IO::K8s::Traefik::V1alpha1::ContentType - ContentType holds the content-type middleware configuration.
=head1 VERSION
version 1.112
=head2 autoDetect
AutoDetect specifies whether to let the `Content-Type` header, if it has not been set by the backend,
be automatically set to a value derived from the contents of the response.
Deprecated: AutoDetect option is deprecated, Content-Type middleware is only meant to be used to enable the content-type detection, please remove any usage of this option.
=head1 SUPPORT
=head2 Issues
view release on metacpan or search on metacpan
html/lib/IO/Moose.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>IO::Moose - Reimplementation of IO::* with improvements</title>
<link rel="stylesheet" href="../../../Active.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:support@ActiveState.com" />
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="3">
view release on metacpan or search on metacpan
lib/IO/Socket/SSL.pm view on Meta::CPAN
# the info given when the version is zero is not that useful for us
$ssl_ver >>= 8; # check the upper 8 bits only below */
# SSLv2 doesn't seem to have TLS record-type headers, so OpenSSL
# always pass-up content-type as 0. But the interesting message-type
# is at 'buf[0]'.
my $tls_rt_name = ($ssl_ver == $trace_constants{SSL3_VERSION_MAJOR} && $content_type)
? $tc_type2s{$content_type} || "TLS Unknown (type=$content_type)"
: "";
view release on metacpan or search on metacpan
examples/chart_users_cron.pl view on Meta::CPAN
## You'll get a HTTP::Response object.
if ($response->is_success) {
my $zipped = $response->content;
## Should've gotten gzipped JSON back.
die "Unknown content-type: ".$response->content_type
unless $response->content_type eq 'application/x-gzip';
my $json = memGunzip($zipped);
my $netinfo = decode_json($json);
my $user_count = $netinfo->{GlobalUsers} // 0;
view release on metacpan or search on metacpan
lib/Image/ExifTool/HTML.pm view on Meta::CPAN
'content-disposition' => { Name => 'ContentDisposition' },
'content-language' => { Name => 'ContentLanguage' },
'content-script-type' => { Name => 'ContentScriptType' },
'content-style-type' => { Name => 'ContentStyleType' },
# note: setting the HTMLCharset like this will miss any tags which come earlier
'content-type' => { Name => 'ContentType', RawConv => \&SetHTMLCharset },
'default-style' => { Name => 'DefaultStyle' },
expires => { },
'ext-cache' => { Name => 'ExtCache' },
imagetoolbar => { Name => 'ImageToolbar' },
lotus => { },
view release on metacpan or search on metacpan
Tileset.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Image::Tileset - A tileset loader.</title>
<link rel="stylesheet" href="pod.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>
<body>
view release on metacpan or search on metacpan
examples/basic_example.pl view on Meta::CPAN
$h->meta({
'http-equiv' => 'expires',
'content' => '-1',
}),
$h->meta({
'http-equiv' => 'content-type',
'content' => 'text/html; charset=UTF-8',
}),
$h->title('Image::VisualConfirmation CAPTCHA integration demo'),
]),
$h->body([
view release on metacpan or search on metacpan
lib/Imager/Files.pod view on Meta::CPAN
set STDOUT to autoflush
=item 2.
output a content-type header, and optionally a content-length header
=item 3.
put STDOUT into binmode
view release on metacpan or search on metacpan
lib/Installer/cpanm.pm view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub {...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options verif...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
view release on metacpan or search on metacpan
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'application/json',
Content => $json->encode($url_list),
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'application/json',
Content => $json->encode({'text1' => $text1, 'text2' => $text2}),
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->get(
$uri_obj,
'content-type' => 'application/json',
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'multipart/form-data',
Content => [path($file)->basename => [$file,] ],
)
);
}
lib/Intellexer/API.pm view on Meta::CPAN
);
return $self->_react(
$ua->post(
$uri_obj,
'content-type' => 'multipart/form-data',
Content => [ path($file1)->basename =>[$file1],
path($file2)->basename =>[$file2] ],
)
);
}
view release on metacpan or search on metacpan
t/04-oauth.t view on Meta::CPAN
is(scalar @requests, 1, "$case->{name}: one request");
my $want = $corpus->{endpoints}{ $case->{endpoint} };
my $sent = "$requests[0]{method} $requests[0]{path}";
is($sent, "$want->{method} $want->{path}", "$case->{name}: endpoint");
like($requests[0]{headers}{'content-type'}, qr/\A\Q$corpus->{forms}{contentType}\E/,
"$case->{name}: content type");
is_deeply(form_fields($requests[0]{body}), $case->{fields}, "$case->{name}: fields");
}
serve({ status => 200, body => \%EVERY_REQUIRED_MEMBER });
t/04-oauth.t view on Meta::CPAN
});
is(ref $outcome, 'HASH', "$case->{name}: answered");
is(scalar @requests, 1, "$case->{name}: one request");
is("$requests[0]{method} $requests[0]{path}", "$register->{endpoint}{method} $register->{endpoint}{path}",
"$case->{name}: endpoint");
like($requests[0]{headers}{'content-type'}, qr/\A\Q$register->{contentType}\E/, "$case->{name}: JSON");
is_deeply(Mojo::JSON::decode_json($requests[0]{body}), $case->{body}, "$case->{name}: body");
}
my @refused = (
(map { $_->{args}{redirectUris} } @{ $register->{refusals}{cases} }),
["http://127.0.0.1/cb\x{D800}"], 'http://127.0.0.1/cb', undef,
view release on metacpan or search on metacpan
lib/JMAP/Tester.pm view on Meta::CPAN
#pod my $result = $tester->upload(\%arg);
#pod
#pod Required arguments are:
#pod
#pod accountId - the account for which we're uploading (no default)
#pod type - the content-type we want to provide to the server
#pod blob - the data to upload. Must be a reference to a string
#pod
#pod This uploads the given blob.
#pod
#pod The return value will either be a L<failure
lib/JMAP/Tester.pm view on Meta::CPAN
#pod
#pod The first hashref provides values that go into the download URI:
#pod
#pod blobId - the blob to download (no default)
#pod accountId - the account for which we're downloading (no default)
#pod type - the content-type we want the server to provide back (no default)
#pod name - the name we want the server to provide back (default: "download")
#pod
#pod If the download URI template has a C<blobId>, C<accountId>, or C<type>
#pod placeholder but no argument for that is given to C<download>, an exception
#pod will be thrown.
lib/JMAP/Tester.pm view on Meta::CPAN
my $result = $tester->upload(\%arg);
Required arguments are:
accountId - the account for which we're uploading (no default)
type - the content-type we want to provide to the server
blob - the data to upload. Must be a reference to a string
This uploads the given blob.
The return value will either be a L<failure
lib/JMAP/Tester.pm view on Meta::CPAN
The first hashref provides values that go into the download URI:
blobId - the blob to download (no default)
accountId - the account for which we're downloading (no default)
type - the content-type we want the server to provide back (no default)
name - the name we want the server to provide back (default: "download")
If the download URI template has a C<blobId>, C<accountId>, or C<type>
placeholder but no argument for that is given to C<download>, an exception
will be thrown.
view release on metacpan or search on metacpan
lib/JQuery/jquery_js/jquery/jquery-latest.js view on Meta::CPAN
} catch(e){}
return false;
},
/* Get the data out of an XMLHttpRequest.
* Return parsed XML if content-type header is "xml" and type is "xml" or omitted,
* otherwise return plain text.
* (String) data - The type of data that you're expecting back,
* (e.g. "xml", "html", "script")
*/
httpData: function( r, type ) {
var ct = r.getResponseHeader("content-type");
var data = !type && ct && ct.indexOf("xml") >= 0;
data = type == "xml" || data ? r.responseXML : r.responseText;
// If the type is "script", eval it in global context
if ( type == "script" )
view release on metacpan or search on metacpan
JRPC/Client.pm view on Meta::CPAN
Factory method to instantiate and prepare a new JSON-RPC request to a URL. Options in %opts:
=over 4
=item * 'mime' - Mime content-type for request (default: 'application/json')
=item * 'debug' - Dump Request after instantiation (to STDERR).
=back
view release on metacpan or search on metacpan
tests/lib/Test/Base.js view on Meta::CPAN
if (hdrName != null) {
this._headers[this._headers.length] = {h:hdrName, v:hdrValue};
switch (hdrName.toLowerCase()) {
case 'content-encoding': gotContentEncoding = true; break;
case 'content-length' : gotContentLength = true; break;
case 'content-type' : gotContentType = true; break;
case 'date' : gotDate = true; break;
case 'expires' : gotExpiration = true; break;
case 'last-modified' : gotLastModified = true; break;
}
}
view release on metacpan or search on metacpan
tests/lib/Test/Base.js view on Meta::CPAN
if (hdrName != null) {
this._headers[this._headers.length] = {h:hdrName, v:hdrValue};
switch (hdrName.toLowerCase()) {
case 'content-encoding': gotContentEncoding = true; break;
case 'content-length' : gotContentLength = true; break;
case 'content-type' : gotContentType = true; break;
case 'date' : gotDate = true; break;
case 'expires' : gotExpiration = true; break;
case 'last-modified' : gotLastModified = true; break;
}
}